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INTRODUCCION 


Mi objetivo al escribir este libro ha sido enseñar la forma de uti- 
lizar mejor el Interface 1 de Sinclair, haciendo especial referencia a 
los Microdrives ZX. El Interface amplía en gran medida la utilidad del 
Spectrum y los Microdrives ofrecen un almacenamiento de masa 
de acceso rápido a un precio muy bajo. 

En este libro se explican claramente todas las características 
típicas del Interface y los Microdrives pero, además, se tratan toda 
una serie de posibilidades «ocultas» que convierten a estos dispositi- 
vos en unidades mucho más potentes y útiles. Se incluyen diver- 
sas rutinas en código máquina destinadas a incrementar las posi- 
bilidades del Interface. La presentación de estas rutinas se ha hecho 
de forma que cualquiera pueda utilizarlas aunque no posea cono- 
cimiento alguno acerca de la programación en código máquina. Para 
aquellos lectores que sí conozcan el tema he preparado una sección 
que trata sobre las rutinas de la ROM del Interface y de cómo em- 
plearlas. En esa misma sección se pueden encontrar los listados 
comentados de mis propias rutinas. 

Los programas en código máquina se dan siempre en forma de 
una serie de números almacenados en una o varias sentencias 
DATA a las que acompaña un bucle FOR-NEXT encargado de colo- 
car esos números en el lugar adecuado mediante instrucciones 
POKE. Siempre que ha sido posible, el código máquina se ha hecho 
independiente de la posición. Esto quiere decir que, cualquiera que 
sea la posición de memoria en que se cargue, el programa en có- 
digo máquina funcionará perfectamente. El mejor lugar para colocar 
programas en código máquina se encuentra por encima de la posición 
de memoria RAMTOP (ver página 179 del Manual del Spectrum). Esta 
posición puede desplazarse hacia abajo mediante la sentencia CLEAR. 
Otros lugares donde se pueden cargar programas escritos en código 
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máquina son el área destinada a almacenar gráficos definidos por el 
usuario (168 bytes) y en la memoria intermedia («buffer») de la im- 
presora (256 bytes). Cuando se utilice el Interface deberá evitarse, 
en lo posible, el empleo de instrucciones REM como lugares de 
almacenamiento de código máquina. Hay razones técnicas que impi- 
den recurrir a ellas para estas misiones. Con el fin de facilitar al 
máximo su utilización acompaño cada rutina de este libro con dos 
posiciones recomendadas (una para las máquinas que utilizan 16 K 
y otra para las que emplean 48 K). Estas dos posiciones permiten 
que todas las rutinas se encuentren presentes simultáneamente. Si 
se utilizan, hay que desplazar primeramente la posición RAMTOP, 
Para todas las rutinas se obtendrá espacio suficiente haciendo 
CLEAR 32009 (para máquinas con 16 K) o CLEAR 64779 (para 
48 K). Como en alguna de las rutinas de mayor extensión apare- 
cen gran cantidad de números, la posibilidad de que haya errores en 
el momento de transcribirlas es mayor. Por este motivo todas las 
rutinas van formando una suma de control («checksum») a medida 
que realizan instrucciones POKE. Si la suma total obtenida no es 
correcta, la rutina se detendrá dando el mensaje correspondiente. 
Entonces habrá que comprobar los datos entrados y corregirlos si 
fuera necesario. 

Otras secciones del libro están dedicadas a la seguridad de los 
programas y a cómo ampliar el BASIC del Spectrum mediante la 
adición de nuevas instrucciones. En los apéndices se ha reunido 
información de tipo más técnico así como explicaciones acerca de 
los errores típicos que pueden producirse al emplear el Interface. 

La preparación de este libro es en sí misma una buena muestra 
del potencial del Spectrum como ordenador «serio»: he utilizado 
un Spectrum de 48 K, con un teclado profesional, un interfaz para 
impresora, un procesador de textos y una impresora de agujas. 


Andrew Pennell 
Cliftonville, Kent 
Septiembre 1983 


Capítulo 1 
CORRIENTES Y CANALES 


Antes de entrar a discutir en detalle las muchas posibilidades adi- 
cionales que el Interface ZX confiere al Spectrum, es necesario 
comprender perfectamente los conceptos de «corriente» y «canal» 
puesto que resultan fundamentales para utilizar con eficacia tanto 
los Microdrives como el RS232 y las posibilidades de enlace a 
una red. 

Un canal es aquella parte del sistema de un ordenador a la que 
se pueden enviar o de la que se pueden recibir datos. Entre otros 
ejemplos de canales se pueden citar: el teclado —para entrada de 
datos— y la pantalla —para salida de datos—. Las rutas o caminos 
que deben seguir los datos para llegar a los canales reciben el nom- 
bre de corrientes. 

En el Spectrum se puede disponer, desde el BASIC, de 16 co- 
rrientes distintas. De esas 16, hay cuatro asignadas inicialmente a 
unos canales determinados según se muestra en la siguiente tabla: 


Corriente Identificador Utilización de Utilización de 
N.? del canal salida entrada 
+0 «Kd...... a la parte inferior de desde el 

la pantalla teclado 
1 OA a la parte inferior de desde el 
la pantalla teclado 

H2 S...... a la parte superior de no puede ser 
la pantalla entrada 

3 o a la impresora ZX no puede ser 
entrada 


Las corrientes O y 1 son idénticas y están conectadas al canal 
«K». Este canal envía los caracteres a la parte inferior de la pantalla 
(donde aparecen los mensajes de error y las operaciones INPUTSs) 
y también los recibe desde el teclado. La corriente 2 es el canal 
«S», encargado «de imprimir los caracteres en la parte superior 
de la pantaila. La corriente 3 es el canal «P», que envía los ca- 
racteres a la impresora ZX. El sistema del Spectrum impide que haya 
entradas a través de las corrientes 2 y 3. Por ejemplo, si se intenta 
ejecutar la sentencia INPUT + 3;a$, se provocará la aparición del 
mensaje de error Invalid 1/O device (dispositivo de Entrada/Salida 
incorrecto). 

El símbolo utilizado para designar a las corrientes es el 4 y puede 
añadirse a las instrucciones PRINT, INPUT y algunas otras. Por ejem- 
plo, para imprimir en las líneas inferiores de la pantalla —cosa que 
normalmente es imposible— se puede recurrir a las corrientes 
061: 


PRINT HO;AT 0,0¡"LINEA 23"; 
AT 1,0;¡"LINEA 29";: PALSE 0 


Es necesario emplear una pausa con el fin de impedir que con 
ol mensaje «OK» se: destruya el mensaje que se quería imprimir en 
osas líneas. Al imprimir a través del canal «K» puede ocurrir que 
inosperadamente la parte inferior de la pantalla se desplace ver- 
ticalmente, superponiéndose sobre la:parte superior de la pantalla. 
50 puede evitar este inconveniente mediante el empleo de instruc- 
ciones AT así como terminando cualquier texto con un punto y 
comd. 

la sentencia PRINT +* 2; tiene el mismo efecto que la instruc- 
ción PRINT normal que envía caracteres al canal «S» (a la parte 
stiperior de la pantalla). Con PRINT 4 3; el resultado es el mismo 
que con LPRINT, que imprime caracteres en la impresora ZX (ca- 
nal «P»). Una ventaja al utilizar las corrientes 2 y 3 en nuestros pro- 
qriemas es que se puede tener una variable para determinar si la 
salida de datos debe ser a través de la pantalla o de la impresora. 
bl siguiente programa demuestra la utilización de esta técnica: 


1) 


1000 INPUT "IMPRESORA 23/N3" ¡éárt 


1010 LET LC=21 1F Aft="<” OR At="5 
* TAE LE E=s= 

10620 PRIME RHESESTO ES UR. ¿A SFE 
ESPA" 


También se pueden emplear dos corrientes distintas en una mis- 
ma instrucción PRINT. Por ejemplo: 


2000 PRINT H2;"LA PANTALLA" $23" 
LA IMPRESORA ¿x" 


Asimismo se pueden utilizar las instrucciones INPUT y LIST con 
corrientes. En un Spectrum que no disponga del Interface sólo 
está permitido hacer INPUT + O 6 INPUT %X 1, instrucciones que 
resultan equivalentes a la INPUT normal. Sin embargo, como ve- 
remos en posteriores capítulos, es extremadamente útil el empleo 
de instrucciones del tipo INPUT + cuando se posee el Interface. 

La sentencia LIST + n (donde «n» designa el número de la co- 
rriente) lleva el listado de un programa en BASIC a la corriente 
correspondiente. La sentencia LIST + 3 es equivalente a la LLIST que 
saca un listado por la impresora ZX. Con LIST % O se obtiene un 
efecto muy interesante —aunque sin ninguna utilidad— en la pan- 
talla. 

También se puede emplear la sentencia INKEY +4 n con las co- 
rreentes aunque no tiene mucha utilidad con los canales normales. 
Las sentencias INKEYS$ +* O e INKEY$ + 1, dan normalmente como 
resultado cadenas vacías. No está permitido utilizar los números + 2 
y + 3 con estas sentencias. En capítulos posteriores se explica cómo 
hacerlo con otros canales del Interface. 


OPEN + Y CLOSE + 


- En la configuración básica del Spectrum la utilidad del coman- 
do OPEN + queda bastante restringida. El objetivo de esta instruc- 
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ción es asignar un canal a una corriente. La forma general del 
comando es: 


OPEN HN,FS 


donde «n» designa el número de la corriente y f$ al identificador 
del canal. Obsérvese que el signo + es parte de la palabra clave 
OPEN ** obtenida mediante la pulsación de las teclas Symbol Shift-3. 
El valor de «n» tiene que estar comprendido entre el O y el 15 
(de otra forma aparecerá el error Corriente no válida (Invalid stream). 
El identificador del canal tiene que ser una sola letra y debe indicar un 
canal correcto. Se pueden utilizar letras en mayúscula o en minúscula 
es decir: «K», «k», «S», «s», «P» Oo «p». Si se intenta utilizar una 
letra no válida, aparecerá el error Nombre de fichero no válido 
(Invalid filename). Cuando el Interface 1 está conectado también 
son correctos los identificadores «Mp», «N», «B» y «T», así como sus 
correspondientes versiones en minúscula. Estos identificadores desig- 
nan a los canales del Microdrive, enlace a red de ordenadores, 
RS232 Binario y RS232 de Texto respectivamente. Con estos canales 
adicionales también se puede utilizar un punto y coma como sepa- 
rador en las sentencias OPEN +, Es posible también emplear una 
coma. Algunos de estos canales necesitan otros datos adicionales. 
Se darán los detalles pertinentes en los capítulos correspondientes. 
Por ejemplo: 


OPEN R37"S" 


hará que toda la salida de la corriente 3, que normalmente va a la 
impresora ZX, vaya a la parte superior de la pantalla. De esta forma, 
con LLIST se obtendrá un listado sobre la pantalla. Resultará muy 
conveniente recurrir a esta sentencia cuando se quiera depurar pro- 
gramas que utilicen la impresora ZX o bien cuando se quiera aho- 
rrar papel. La instrucción de efecto contrario al anterior es: 


OPEN 42 Es 


que hace que toda la salida de la corriente 2, que normalmente 
sale por la pantalla, vaya a parar a la impresora. Si ambos coman- 
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dos se ejecutan simultáneamente, la salida del programa será, como 
mínimo, bastante confusa. 

Se puede emplear OPEN +% para utilizar otras corrientes. Nor- 
malmente las corrientes de la 4 a la 15 son «corrientes sin canal» y 
cualquier intento de emplearlas (por ejemplo, PRINT 4% 6; «6»;) 
provocará la aparición del mensaje de error Corriente no válida 
(Invalid stream). Sin embargo, es posible «abrir» estas corrientes 
adicionales de la forma normal: 


OPEN $44," =" 
PRIMT 9" HOLA!" 


hará que aparezca la palabra «¡Hola!» en la pantalla, canal «S». 
Cuando se emplea el Interface, las corrientes de la 4 a la 15 
se utilizan mucho para poder hacer uso de otros periféricos Sin- 
clair. 

Para anular el efecto de una sentencia OPEN + n se debe 
emplear el comando complementario CLOSE + n, donde «n» indica 
el número de la corriente. Al cerrar («Close») las corrientes O a 3 
pasarán a estar asignadas a sus canales normales. Cuando se cierran 
las comprendidas entre la 4 y la 15 pasarán a no tener asignado 
canal alguno. 


IMPORTANTE: Evítese el uso de la sentencia CLOSE Y con las 
corrientes de la 4 a la 15 si no está conectado el Interface. Debido 
a un error en el BASIC, si la corriente especificada está ya cerrada 
pueden ocurrir cosas extrañas. Normalmente, se recibe un mensaje 
de error un tanto curioso pero también puede suceder que todo el 
ordenador se inicialice. Cuando el Interface está conectado no hay 
problema alguno ya que el error queda automáticamente corregido. 


CLEAR + Y MOVE 


Existe otra sentencia que también puede utilizarse con los cana- 
les: es la CLEAR + (obsérvese el símbolo 4). Este símbolo no le 
da ninguna importancia especial a la sentencia CLEAR. El objeto de 
esta sentencia es cerrar las corrientes de la 4 a la 15 y reasignar las 
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corrientes de la O a la 3 a sus canales originales. Cuando se quiera 
utilizar esta sentencia con los canales adicionales del Interface ha- 
brá que poner especial cuidado. 

Finalmente, una última instrucción que puede emplearse en rela- 
ción a los canales es la instrucción MOVE. Puede aparecer bajo di- 
versas formas perú el formato más general es el siguiente: 


MONE Ha TO Ab 


Donde a y b son los números de las corrientes y TO una pala- 
bra clave. Lo que hace esta instrucción es leer un carácter de la 
corriente «a» e imprimirlo en la corriente «b». Se repite este proce- 
so hasta que se satisfaga una cierta condición (esta condición de- 
pende del tipo de canal al que esté conectada la corriente «a»). 
Se trata de un comando muy potente cuyas diferentes aplicaciones 
se explicarán en los siguientes capítulos. 

Es posible que una rutina en código máquina genere corrientes 
«speciales para usos particulares. Por ejemplo, el sistema operativo 
de BASIC emplea internamente el canal «R» en asociación con la 
corriente —1 (que no puede ser utilizada por programas en BASIC) 
para «imprimir» caracteres en el área interna de trabajo de la me- 
moria. También es posible modificar canales ya existentes. Por ejem- 
plo, todos los interfaces producidos por empresas independientes de 
oinclair para conectar impresoras, del tipo Centronics, modifican el 
canal «P» de forma que toda la salida de la corriente 3 (por ejemplo, 
| PRINT) vaya a una impresora externa independiente, a través del 
interfaz en vez de salir por la impresora ZX. 

Cuando se utilizan simultáneamente varias corrientes resulta difí- 
cil saber qué canal está conectado a qué corriente y qué corrientes 
no están realizando función alguna. El programa siguiente genera 
una tabla en la que se relacionan los detalles correspondientes a 
cada corriente, incluidas las que van de la —3 a la —1 (que sólo 
son accesibles a programas en código máquina). Cuando el progra- 
ma se ejecuta, imprime un resumen acerca del empleo de cada co- 
mente indicando si se puede utilizar para entrada, salida o para am- 
bas cosas a la vez. Una vez se ha presentado el resumen, se pide 
al usuario del programa que entre el número de una corriente. Una 
vez se ha entrado, el programa da más detalles acerca de esa co- 
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rriente en particular. Tal y como está ahora, el programa sólo da 
información acerca de los canales normales. A lo largo del libro se 
irán ampliando las posibilidades del programa. 


Catálogo de corrientes 


Uno. DEF FM: pia =REBE PEO FEER 
ip 

10 ELSs : FRIMNT TAE £ 

La AE TON. LURER TEN 
LED PRIM *EUORRTES." CTE 8: ER 

SALTAR 16 "NOM."¡TAR 237 "EMPLEO" 
1030 FOR <=-=2 102 13 
LEzZS PRI As es 

1030 LET d=FN posri+235ss+ 
1094390 1F d=0O0 THEN —FRIMT TAE 20 

INMERSE. LI" LIBRE"S Eu T 

1050 LET d=d+FH 22631 3=1 

LSO 1d PB Aa a Ea, PR 
INT TAB E"ENT"; 

1070 PRINT TAS 113"; 

LUSO 1 PR ade aaa Tae (PRI 

LL Tb Les Seal" 

1004 LET ++=CHRE FEEE 1d+3: 

1100 PRINT TAB 183" """ iran T 

AB ZO; 

1110 TFR PFE="E" THEN O E 

ALLA INF": 60 Tú 12<00 

1120 1F +*="25" THEN  FEINT "PRAarnNT 

ALLA SUP": 66 710 1 <00 

1130 1F ++="P" THEN. PFERINT *"I]IMPE 

ESORA": 60 TO 12<00 

11906 TLF +E="H" TRAER ¿ERINT “HIDE: 

CORIVGE*"* Gu TE SU 

1150 1F +%="M" THEM  PRIMT "ENLéÉ 

EE: RED"S MU “E Acera 

1170 IF +2="T*" THE ER 

2 O 4 4 E 00 

1130 1F +2="E" THESN PEIRNT “AREA 
TRABAJO": 0 TO 1200 


— 


15 


16 


(1990 IF D=0 THEN  F 


1170 PRINTO FLASH 1:;*3IM ESPECIF 
ICAR" 

1200 NEXT = 

1210 PRINT AT 0,0; 

1500 INPUT "ENTRAR MUMERO DE COR 
RIENTE O ENTER PARÁ TERMINAR 
2%: LINE £ 
1505 1F 3% 
1510 CLS 
1515 LET S=VUAL 5% 
1520 PRINT TAB £ IMNVERSE 14 "Nun 
ERO DE CORRIENTE "; 


+ 
ras 


"0 THEN STOP 


1530 LET D=FMN Pozez 


Pa —Á (An 


Fi 
| 


Cr 
Cr 

+ 

Cn 


I 
Ll 


TE CERRADS": GO TO 
1550 LET: D=D+FN Poz23é 
1540 LET F3=CHERE FEEK ¿0+434> 

1370 PRINT "IDENTIFICADOR DE Cár 
AL:";FsS 

15S0 REM COMPROBAR CADA TIFO 
1400 IF Fé*="K" THEN 0 TO 000 
1610 1F Fé="S" THEN.  G60 TO 2020 
1420 IF Fé="F" THEN 0 TA 2o0930 
1460 IF Fé="R" THEN 60 TO <050 
1870 FRINT. FLASH 1" I0ENTIFICAC 
OR DESCONOCIDO" 

1700 GA TO 1500 

500 FRINT "RUTIMA CE SALIDA 
o 

12310 PRIMT "EUTIMNS CE ENTEADA 

eS PRLDE 

1220 IF FN Pebi=557 
FLASH 1;"SsóLO e iLÁdLa 
220 IF FN PD+22=3572 72 THEN FRI 
NT FLASH ads SALIDA" 

1370 RETURN 

1 FS REM CANAL KE 
2000 PRINT IMNERSE 1: "PANTALLA 
INFERIOR TECLADO" 
20174 60 70 2080 
2017 EEM CáneL < 


«¿L 
qa 
F: 1 
13 
34 


o 
| 
—. 


ZO THEN PRIMT 


ZSOzxb PRIMT O INVERSE 1: "FANTALLA 


SUPERIOR" 
2030 60 TO 2060 
2037 REM CAMÁL FP 


200 PRIMT INNMERSE Li IMPRESORA" 
2093 GU TO 2o0G0 
“097 REM CANAL E 


20430 PRINT IMSERSE 1¡"5ARES DE T 
FABRA JO” 
¿200 GÓ SUE 1200 


200 64 Ta 1500 


El programa trabaja aplicando la operación PEEK a varias posi- 
ciones de memoria (lea la siguiente explicación sólo si realmente le 
interesa). 

El bucle FOR-NEXT s (línea 1020) trata sucesivamente a cada 
una de las corrientes. La variable d representa el desplazamiento en 
el área STRMS (1030), para la corriente seleccionada. Este despla- 
zamiento será cero si la corriente está cerrada (1040). Este des- 
plazamiento se suma a la variable del sistema CHANS (1050). La 
variable «d» apunta a una serie de bytes del área de memoria 
CHANS. Los canales normales (es decir, K, S, P y R) ocupan en el 
área CHANS un mínimo de cinco bytes cada uno lo que supone un 
total de 20 bytes. Los dos primeros bytes de cada bloque de cinco 
apuntan a la rutina de salida de un carácter. Los dos segundos 
apuntan a la rutina de entrada de un solo carácter. El quinto byte es 
el identificador del canal expresado en mayúsculas o minúsculas. 
La posición 5572 guarda una instrucción de salto que lleva a la rutina 
de error correspondiente a Dispositivo de Entrada/Salida no válido 
(Invalid 1/O device). Para comprobarlo haga RANDOMIZE USR 5572. 
La comprobación correspondiente se realiza en las lineas 1060 y 
1080. El identificador del canal se imprime en la linea 1100 y en las 
líneas 1110-1180 se comprueba que designa a alguno de los canales 
conocidos; luego se imprime el nombre del dispositivo correspondien- 
te. Una vez impreso el resumen, el usuario puede entrar el núme- 
ro de una corriente (1500) y recibir más detalles. Para los canales 
que hemos tratado hasta ahora esta información corresponde única- 
mente a las posiciones de entrada y salida (para ello se emplea la 
subrutina de la línea 1800). Más adelante ampliaremos este aspecto. 
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UTILIZACIÓN CORRIENTES 
CORRTE. ENT-“SAL NOM, EMPLEO 
=3 ENTSAL "k" PARNTALLA INF 


-2 ¿SAL "5" PANTALLA SUP 
-1 ¿SAL "R" AREA TRABAJO 
0 ENT/SAL "K" PANTALLA INF 
1 ENT/SAL "K" PANTALLA INF 
2 ¿SAL "5" PANTALLA SUP 
3 ¿GAL "E" IMPRESORA 
4 ENTFSAGL “T" REZAR 
5 LIBRE 
$ ENTSAL "HN" ENLACE RED 
? LIBRE 
8 LIBRE 
7 LIBRE 
10 ENTSAL "M4" MICRODRIVE 
11 LIBRE 
12 LIBRE 
13 LIBRE 
14 LIBRE 
15 

HIGURA 1. LISTADO CORRIENTES PE SALIDA 


li Figura 1 muestra la salida típica que se obtiene al ejecutar este 
programa. 


Programa «corriente 14-z$» 


tl programa siguiente hace que la corriente 14 sea capaz de «im- 
prmir» caracteres en una variable de BASIC de tipo cadena. Al 
amar a la rutina mediante la sentencia GO SUB 8000 la variable st 
tiene que contener la dirección de la posición de memoria a la que 
debe dirigirse la subrutina. La rutina ocupa 101 bytes y se recomien- 
don para ella las posiciones de memoria 65260 (48 K) y 32490 (16 K). 
Una vez haya sido llamada la rutina, toda la salida de la corriente 14 
so Há añadiendo al final de la variable de tipo cadena z$ (variable 
que no debe estar dimensionada). Si z$ no existe o está dimensiona- 
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da, se producirá un error del tipo Variable not found (Variable no 
encontrada). Es posible realizar las sentencias PRINT + 14; y 
LIST 4 14 y, lo que quizás resulte más útil, puede utilizarse para 
catalogar un Microdrive dentro de ¡ia cadena. Sin embargo, existe 
una restricción: las sentencias que impriman cadenas directamente 
no funcionarán de forma correcta. Por ejemplo, 


PRINT R19;" CADENA" 


funcionará incorrectamente añadiendo al final de z$ la cadena 
«ssssss». Para corregir este defecto se pueden emplear dos méto- 
dos: o bien se imprime cada carácter individualmente (por ejemplo, 
PRINT + 14; “c”; “a”; “d”; “e”; “n”; “a”) o bien se emplea otra 
variable de tipo dl (LET a = “cadena”: PRINT 4% 14; a$). 
Para programadores expertos diré que la razón es que la rutina 
desplaza hacia arriba secciones de memoria a fin. de disponer de es- 
pacio en el que insertar los caracteres pero también desplaza en el 
mismo sentido el área de trabajo donde está almacenada la cadena 
temporal, de forma que siempre se añade el primer carácter de la 
cadena. 


Listado de «corriente 14-z$» 


APR REM AECA 

PE REM * RUTINA DE LA CORRIEN> 
* TE 19d-¿3* * 

CPP OREA] EEE 

¿"Te RE SEit=PUS IED PRICE IAL 

¿ZE? REM RECUMENDADA 143240 ad 

SO 

SO Fes] URE- eb O 

A 1 8 E E 

=S010 FOR (==st TO =<t+100 

So02D0 RESDO 23 PS. dial EF ESERFS 

SOS MEX] 

S00s IF. ec 0oS7 "THEN: PRINTER 


ROR EN SUMA da CURRO -=T0p 
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20) 


sas RÁANDOMIZE USRK <=t 
060 RETURN 


3070 DATA 
11 

8075 DATA 
Ú 

380480 DATA 
14,35 
2085 DATA 
8090 DATA 
77,72 
5095 DATA 


3100 DATA 


3105 DATA 


42,82,92,42,197?,227?,1, 


A o 
235,1,247,255,7,1,9,0 
a] - a a, 
LOCAL COSO SILO DA 


0,201,194,21,70,90,0,4 


Capítulo 2 


INICIACION AL EMPLEO 
DE LOS MICRODRIVES 


Cómo funcionan 


Cada cartucho de Microdrive contiene un bucle continuo de apro- 
ximadamente cinco metros de cinta magnética de calidad superior a 
la de las cintas de audio normales. En sí los Microdrives están for- 
mados por un motor que hace girar la cinta y una cabeza de gra- 
bación/reproducción parecida a la de un magnetófono de cassette. 
la cinta pasa por delante de la cabeza a gran velocidad y se pueden 
almacenar datos en ella mediante grabación o bien se pueden ex- 
traer al reproducir su contenido. Se trata de un sistema de cinta 
realmente rápido que está libre de muchas de las engorrosas ope- 
raciones típicas de los cassettes: rebobinado, etc. 

El sistema también tiene sus inconvenientes. El principal es su 
tiempo de acceso. Si la parte de la cinta en que estaba guardado 
uno de nuestros programas acaba de rebasar la cabeza lectora y 
deseábamos leer precisamente ese programa, habrá que esperar a 
que toda la cinta vuelva a pasar para poder encontrarlo otra vez 
puesto que no es posible realizar un «rebobinado» de la cinta. Esto 
significa que puede necesitarse más de siete segundos para encon- 
trar en la cinta un programa o un dato determinado. 

La escritura de datos en un cartucho también puede resultar bas- 
tante lenta. Cuando el cartucho es nuevo y guarda pocos programas 
en su interior es fácil para el ordenador encontrar un lugar libre 
donde almacenar los nuevos datos o programas. En cambio, si el 
cartucho está bastante lleno, el ordenador tendrá que ir localizando 
los espacios libres y almacenando en ellos secciones del programa o 
de los datos que se deseaban almacenar. Esta circunstancia hará 
que la próxima vez que se desee leer esa información se requiera 
también más tiempo. 
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Protección contra escritura 


Las cassettes de audio tienen en su parte posterior dos pequeñas 
pestañas O lengúetas que se pueden romper. Cuando esto se hace, 
el cassette queda protegido de forma que no se puede grabar nada 
en él. Así se preservan grabaciones que, por un motivo u otro, con- 
viene conservar intactas. Estas lengúetas se denominan «lengúetas 
de protección contra escritura (o grabación) y borrado involunta- 
rios». Los cartuchos para los Microdrives desarrollados por Sinclair 
también disponen de unas lengúetas de este tipo con una misión 
similar. 

Tal y como se ve en la figura 2 cada cartucho tiene una pequeña 
lengúeta de plástico en uno de sus lados. Si usted la levanta, impe- 
dirá la grabación de datos en ese cartucho. Esta es una posibili- 
dad muy importante especialmente para los programas de tipo co- 
mercial (o para aquellos que a usted le interese conservar). Si, una 
vez separada la pestaña, usted desea grabar información en el car- 
tucho, puede hacerlo cubriendo previamente el lugar ocupado por la 
lengúeta con un poco de cinta adhesiva. Hay que cuidar que la 
cinta adhesiva no sea demasiado ancha pues, si lo fuera y la do- 
bláramos sobre la parte inferior y superior del cartucho, podría muy 
bien ocurrir que éste no entrara en el Microdrive. 


o. 


1% 10. 


Puta 


Ed 


Manejo de los cartuchos 


La cinta contenida en el interior de los cartuchos es muy deli- 
cada. No hay que tocarla jamás ni con los dedos ni con otros ob- 
jetos. Cuando no se utilice, es mejor dejar. el cartucho dentro de 
la caja correspondiente, para protección. 

Al insertar los cartuchos en los Microdrives asegúrese de que los 
coloca de la forma correcta (con la etiqueta grande en la parte su- 
perior) y empújelos con firmeza hacia adentro. Una vez los haya in- 
sertado asegúrese de que los ha introducido hasta el fondo pues, de 
otra forma, se podrían producir errores al comenzar a funcionar. 
Hay dos reglas muy importantes que deben seguirse al pie de la 
letra cuando se utilicen los cartuchos: 


1. Nunca hay que intentar sacar el cartucho si el LED rojo está 
encendido. 

2. Nunca hay que dejar un cartucho en el Microdrive cuando se 
conecta o desconecta la alimentación. 


Si se deja de cumplir alguna de estas reglas se pueden causar 
daños permanentes, bien al cartucho o bien al propio Microdrive. 
Los cartuchos no tienen la misma duración que los cassettes 
de audio normales debido a las duras condiciones bajo las que 
tienen que trabajar. Haga copias de seguridad de los programas 
importantes y guárdelos en otro cartucho o, mejor, en un cassette. 


Inicialización de un cartucho mediante FORMAT 


Cuando se adquiere un cartucho nuevo, virgen, la cinta de su 
interior contiene información magnética aleatoria. Si se intenta uti- 
lizar el cartucho se obtendrá un error del tipo Microdrive not pre- 
sent (Microdrive inexistente). Para poder utilizar el cartucho es ne- 
cesario inicializarlo o «formatearlo» mediante el comando FORMAT. 
Esta instrucción tiene la forma general: 


FORMAT “mesas "HOnEAE" 


donde «d» es el número del Microdrive (del 1 al 8) y «nombre» es 
el título que quedará permanentemente asociado con el cartucho. 
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[ste nombre puede ser de hasta 10 letras de longitud. La inicializa- 
ción del cartucho requerirá aproximadamente 30 segundos, tiempo 
durante el cual el ordenador formateará el cartucho, almacenará 
en él su nombre y comprobará cada fragmento de cinta varias 
veces. Si durante esta inspección el ordenador encuentra alguna par- 
te de la cinta inutilizable porque, por ejemplo, ha resultado daña- 
da, la marcará para evitar que se hagan operaciones sobre ella en 
cl futuro. El borde de la pantalla se mostrará intermitente durante 
oeste proceso. Ántes de pasar a formatearlo, asegúrese de que el 
cartucho está correctamente colocado en el Microdrive. La primera 
vez que formateé un cartucho me olvidé de empujarlo hasta el 
fondo: ¡el ordenador pensó que tan sólo la tercera parte del car- 
tucho era utilizable! Cuando, después de insertarlo a fondo, volví 
a repetir la instrucción, el cartucho resultó formateado sin ningún 
problema. Con cartuchos recién adquiridos conviene hacer dos co- 
mandos FORMAT en rápida sucesión. 


El comando FORMAT destruye cualquier programa que estuviera 
grabado en el cartucho. Así pues es mejor tomar precauciones antes 
de poner en marcha el formateo de un cartucho. Si se intenta forma- 
tear un cartucho al que se le ha quitado la lengúeta de protección 
contra escritura, se producirá un error. 


Después de realizar FORMAT, se puede comprobar cómo ha fun- 
cionado el proceso entrando CAT d (donde d indica el número del 
Microdrive). Aproximadamente siete segundos después de haber en- 
trado esta instrucción aparecerá el nombre del cartucho y luego un 
número. Este último indica la cantidad de kilobytes (K) utilizables 
que hay en el cartucho. Después de haber hecho FORMAT este 
número acostumbra a ser al menos 85. La mayor cantidad de kilo- 
bytes utilizables que he conseguido ha sido de 92. 


Programas y Microdrives 


Una de las ventajas principales de los Microdrives es su gran velo- 
cidad de almacenamiento y lectura de cassettes. Para utilizarlos se 
requiere emplear comandos similares a los empleados para los 
cansettes con unas pocas modificaciones—. Por ejemplo, para al- 
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macenar en cassette el programa de las corrientes que hemos visto 
en el capítulo anterior se podría hacer: 


SAVE “corrientes” 


Para emplear estos comandos con los Microdrives habría que in- 
sertar varias cosas en la línea inmediatamente posterior al comando. 
Primero, habría que añadir un asterisco (*) y luego una «m»; para 
indicar que se trata de una operación que afecta a un Microdrive. 
Luego habría que poner d; para especificar a qué Microdrive va a 
afectar la instrucción. Para guardar el programa “corrientes” en un 
cartucho colocado en el Microdrive 2 se podría hacer: 


SAME "m0" ¡27 CORRIENTES" 


(se puede utilizar “m' o “M”, no hay diferencia entre ellas). Los 
comandos que sigan a ésta no serán aceptados por el Spectrum a 
menos que el Interface esté conectado. 

Cuando se pone en marcha una operación que afecta a cualquier 
Microdrive, el motor empieza a girar y el LED rojo se ilumina. Si el 
Microdrive está vacío, se producirá un sonido agudo y aparecerá el 
mensaje de error Microdrive no presente (Microdrive not pre- 
sent). Normalmente, se puede saber si el conjunto Microdrive/car- 
tucho funciona correctamente por el sonido que se produce. Cuando 
todo va bien se oye un suave rumor procedente del Microdrive. Si 
algo va mal —por ejemplo no se ha insertado el cartucho correcta- 
mente— se oye un golpeteo acompañado de un chirrido. Si esto 
ocurre, hay que empujar firmemente el cartucho hacia el interior 
del Microdrive. Si el ruido persiste, hay que hacer BREAK (pulsando 
CAPS SPACE), examinar el cartucho, colocarlo otra vez y probar 
de nuevo. Si el Microdrive chirría cuando tiene un cartucho coloca- 
do y aparece un mensaje de error, lo más probable es que el cartu- 
cho sea defectuoso y la cinta no pueda girar. Hay que sus- 
tituir el cartucho por otro. Si todo está bien, durante una opera- 
ción SAVE el Microdrive funcionará durante aproximadamente siete 
segundos, mientras se está buscando el nombre del fichero especi- 
ficado. Si se encuentra, aparecera el error «Writing to a “read” 
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file» (Escritura sobre un fichero de lectura). El borde de la pantalla 
parpadea siempre que se están escribiendo datos en un cartucho. 

Al igual que con los cassettes, es posible emplear la función 
LINE dentro de una sentencia SAVE para que, automáticamente, 
un programa en BASIC pueda empezar inmediatamente después de 
haber sido cargado desde el cartucho. Para hacer que el programa 
antciior empiece en la línea 1000 se puede introducir: 


Después de realizar una instrucción SAVE se puede comprobar 
el correcto funcionamiento del sistema con la función «VERIFY»: 


LCERTEF tm" 325 CORRIENTES 


Si aparece cualquier diferencia se producirá el mensaje  Vertfi- 
cation failed (La verificación ha fallado). Todos los programas refe- 
rentes a los Microdrives no deben dar ningún error de comproba- 
ción. En caso contrario hay que comprobar a fondo tanto el car- 
tucho como el Microdrive. Si el error persiste, hay que substituir 
uno o ambos dispositivos. | 

Para cargar un programa desde un cartucho se emplea el co- 
mando LOAD con el siguiente formato: 


LOSD *"m" 303 NOMBRE” 


donde «d» es el número del Microdrive y «nombre» es el nombre 
del programa que se solicita. Al contrario de lo que ocurre cuando 
se emplean cassettes, no es posible cargar el primer programa de la 
cmta utilizando como nombre del fichero una cadena vacía. Por 
ejemplo, si se intenta hacer : 


LOAD "pp" : 1 "oa 


producció el error Invalid filename (Nombre de fichero no válido). 
no se puede encontrar en el cartucho el nombre del programa, 


Alo 


se recibe el mensaje de error File not found (Fichero no encon- 
trado). 

La función de fusión («merge») también se puede emplear con los 
Microdrives y tiene un formato similar al de los anteriores comandos: 


MERGE *"m" id; "MOMERE" 


Así se cargará el programa de nombre «nombre» desde el Micro- 
drive «d» y lo refundirá con el programa y las variables ya existen- 
tes substituyendo las anteriores por las que están en el cartucho. Al 
contrario que con los cassettes, no se puede hacer MERGE con un 
programa que se ejecuta a sí mismo y que haya sido almacenado 
con LINE xxx. Si se intenta hacer esto, se obtiene el error Merge 
error (Error de fusión). 

Un comando adicional que resulta necesario para emplear los car- 
tuchos pero que no se requiere con los cassettes, es ERASE. Su 
misión es la de borrar del cartucho cualquier fichero. Su formato es: 


ERÁSE "m"3dj "NOMERE” 


Este comando no necesita un asterisco como es normal en otros 
referentes al Microdrive. No se puede colocar nada más después del 
nombre del fichero (por ejemplo, no se puede poner LINE 2000). 

Si se hace BREAK mientras se está ejecutando una instrucción 
SAVE, el fichero quedará incompleto y no podrá ser cargado. Hay 
que borrar (mediante ERASE) todo fichero que haya quedado in- 
completo al haber interrumpido una instrucción SAVE. Si se intenta 
guardar mediante SAVE un programa que ya está en el cartucho, 
se obtiene el error «Writing to a “read” file» (Escritura sobre un 
fichero de lectura). Antes de cargar con SAVE un nuevo programa 
hay que borrar mediante ERASE el programa anterior. 


Encadenamiento de programas 


Utilizando SAVE *“m” ... LINE un programa puede empezar 
por sí mismo y cargar otro, por ejemplo, uno escrito en código 
máquina. El problema es que los programas encadenados sólo funcio- 
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narán en un Microdrive determinado. Para solucionar este problema, 
el primer programa debería tener una línea como la siguiente: 


LET d=PFEEK 23réS 


así la variable 4 contendrá el Microdrive desde el que se cargará 
el programa. Si llamáramos “prog2” al segundo programa, para 
cargarlo desde el primero tendríamos que hacer: 


100 LOSD *"m 3d; PROG" 


Los dos programas funcionarán correctamente sin importar en 
qué Microdrive estén. Por cierto, las instrucciones de la forma: 


100 LOAD *"m" ¡PEEK 223/46] "PROG" 


no funcionarán correctamente por razones técnicas. Empléese siem- 
pre una variable. 


Almacenamiento de vectores y código máquina 
en cartucho 


Además de almacenar programas en cartucho se pueden guardar 
vectores, código-máquina y el contenido de una o varias pantallas. 
Para ello, hay que colocar en los comandos correspondientes, de- 
terminadas palabras clave después del nombre del fichero. Para al- 
macenar vectores, hay que colocar, después del nombre del fichero, 
la palabra DATA y luego el nombre del vector ya sea numérico O 
de elementos de tipo cadena. Por ejemplo, para guardar el vector 
b() en el Microdrive 2 bajo el nombre de “sueldos” habría que 
hacer: 


SAVE x*"m" 323 "SUELDOS" DATA EC) 


f 


Es posible guardar variables de tipo cadena normales no dimensio- 
nadas en cassette pero cuando se cargan de nuevo desde el cassette 
se degradan. En los Microdrives se ha evitado este problema. Para 
comprobarlo introduzca: 


¿Y 


LET aé= “COMPROBACIÓN” :S5ANE- "mo; 
1 "CADENA" DATA astro 


que dará el error Nonsense in BASIC (Sin sentido en BASIC). 

Las instrucciones en código-máquina y los bytes se pueden al- 
macenar añadiendo la palabra clave CODE seguida de dos números 
separados por una coma. El primer número es la dirección inicial y 
el segundo el número de bytes. Ambos son opcionales en las sen- 
tencias LOAD y VERIFY, También es posible almacenar gráficos 
utililando SCREEN$. Se pueden verificar mediante VERIFY los gráfi- 
“cos así guardados, cosa imposible con los cassettes. 

Si se intenta almacenar un fichero utilizando un comando inco- 
rrecto se recibirá el error Wrong file type (Tipo de fichero ina- 
decuado). Por ejemplo, ocurriría esto con: 


LUADb +*"m">1S"TEST CUDE 


si «test» fuera un programa. 


CATalogo 


Para saber qué ficheros se tienen en un cartucho se debe 
emplear el comando CAT (abreviatura de «catálogo»). Este comando 
tiene la forma: 


CAT d 


donde «d» es el número del Microdrive. Por efecto de esta instruc- 
ción aparece en pantalla el nombre del cartucho, luego una línea 
en blanco, la lista alfabética de todos los ficheros que hay en ese 
cartucho y, finalmente, un número. Este número indica cuántos kilo- 
bytes (K) quedan libres en el cartucho. Si el cartucho está vacío 
la cifra será igual o mayor a 85. Se puede enviar el catálogo a 
otros canales además de a la pantalla mediante la instrucción: 


CAT +Hn,d 


donde «n» es el número de la corriente. Por ejemplo, 
29 


CAT 42,2 


llevará el catálogo del Microdrive 2 a la corriente 3 que, normal- 
mente es la impresora ZX. Con esta instrucción sólo se listan los 
primeros 50 ficheros que se encuentran. Si usted tiene más de 
50 ficheros no podrá listarlos todos con la instrucción CAT. 


¿Qué ocurre cuando, desde un programa, se desea conocer el 
número de ficheros que hay en un cartucho? Una forma de con- 
seguirlo —aunque un tanto rudimentaria— consiste en borrar la pan- 
talla, hacer CAT, y luego leer uno a uno cada carácter de la pan- 
talla mediante la función SCREENS. El método resulta engorroso 
y, en caso de que haya más de 20 ficheros en el cartucho, inútil 
(puesto que la pantalla se desplazaría hacia arriba y se perderían 
los nombres de varios ficheros). Lo mejor es emplear la rutina co- 
miente 14-2$ para que vaya añadiendo caracteres a la variable z$ y 
liego emplear: 


LET zé*="":CAT $139,0d 


De esta forma en la variable z$ estará todo el catálogo que podrá 
asi examinarse a voluntad. Para poder hacer uso de la información 
quardada en z$ es necesario conocer cómo está organizada, es ne- 
cesario conocer su formato. Es el siguiente: 


Primero hay 10 caracteres que son el nombre del cartucho, seguidos 
de dos códigos correspondientes a NEWLINE (CHR$ 13s). Luego 
vienen todos los nombres de los ficheros ordenados alfabéticamente. 


Después hay otro NEWLINE y luego uno o dos caracteres que in- 
dican el número de kilobytes libres. Finalmente hay otro NEWLINE, 


HH formato se puede apreciar mejor gracias a la siguiente subrutina 
que presenta en pantalla un catálogo en limpio. El código máquina 
de corriente 14-25 debería introducirse e inicializarse antes de hacer 
(11) SUB 2000. 
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Listado del catálogo en limpio 


177? REM CATALOGO EN LIMFIC 
2000 LET z%$="": CAT H14,d 

Z010 CELS 

¿020 PRINT "NOMBRE CEL CARTUCHO: 
"s INVERSE 128% TO 1(> 

2025 PRINT 

¿030 LET z$=2$(13 TO > 

2040 LET += 

2050 IF LEN z$<10 THEN 650 TO 1 
00 

2060 LET f=4+1 

¿2070 PRINT +43". "¿z*c TO 10) 
¿2080 LET zt=z$(12 TO) 

200 G0 TO 2050 

2100 PRINT "QUEDAN "+3" FICHE 
ROS" 3z$02 TO LEN z$-1>;"K" 

2110 RETURN 


Almacenamiento de variables 


Si usted tiene un programa de cierto tamaño que utilice bas- 
tantes vectores y variables de las que no pueda prescindir, puede 
hacérsele muy lento almacenar todo el programa y sus variables 
(con un SAVE normal) o bien almacenar cada vector bajo un nom- 
bre de fichero distinto (usando SAVE ... DATA). Las siguientes 
subrutinas le permiten guardar en un cartucho todas las variables 
de un programa para luego poderlas descargar más tarde y, quizás, 
transferirlas a otro programa. Las variables se almacenan en el Mi- 
crodrive 1 bajo los nombres «var1» y «var2», pero esto puede cam- 
biarse fácilmente alterando las líneas 4040, 4050, 4110 y 4130. 
No es posible guardar nombres de ficheros y los números de los 
Microdrives en variables dada la técnica que se emplea para ello. 
Por cierto, que no hay ningún error: las líneas 4010 y 4015 son 
iguales pero ambas necesarias. La rutina de almacenamiento (SAVE) 
puede llamarse con GO SUB 4000 pero la rutina de carga (LOAD) 
tiene que ponerse en marcha con GO TO 4100 (no se puede emplear 
GO SUB puesto que contiene una sentencia CLEAR que anula to- 
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dos los GO SUBs previos). Es necesario adaptar la línea 4140 para 
que retroceda a la línea adecuada del programa que ha llamado a la 
rutina. 


Listado de la rutina de almacenamiento y carga de variables 


3999 REM ALMACENAMIENTO (SAVE) 
DE VARIABLES 
4000 DEF FM ptp)»=PEEK p+256*PEEK 


(p+1> 
4010 LET l=FN pr236913-FN pr2242 
7) 
4015 LET 1=FN pr23691-FN prt23462 
7) 
49020 POKE 223365,1-20éxXINT £¿1:2536 
) 


sIWNT (1123807 


e ade 2306 


3030 POKE 233 
3040 SAVE * 


4050 SAVE *"m"1li"varZ"CODE FN p 

(236273,1 

4060 RETURN 

4078 

4099 REM CARGA (LOAD) DE 
VARIABLES 

4100 CLEAR 

4110 LOAD *"m"313"vari"CODE 22356 

5 

4120 DIM a$cFN po23565)-7> 

4130 LOAD *"m"s1;"var2"CODE FN p 

(23627) | 

4140 GO TO xxxx: REM RESTO DEL 

PROGRAMA 


Copias múltiples 


Tal y como ya hemos mencionado, es recomendable tener co- 
plas de seguridad en cartuchos o cassettes. Sin embargo, el Spec- 
trum dispone de una instrucción —no recogida en el manual— que 
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permite almacenar un mismo fichero repetidas veces en el mismo 
cartucho con el mismo nombre. Por contra, si se intenta almacenar 
un fichero desde el BASIC dos veces consecutivas, bajo el mismo 
nombre, se provocará un error. Para conseguir múltiples copias de 
un programa, o de cualquier otro tipo de fichero, hay que hacer 
inmediatamente antes del SAVE un POKE 23791, x donde *“x” es 
el número de copias (de 1 a 255). El valor de «x» que normalmente 
da los mejores resultados es el 2. Tras hacer esto, y después de 
haberse realizado el SAVE, el fichero se habrá copiado «x» veces. 
El número de copias se inicializa nuevamente a 1 después del SAVE. 
Usted no se dará cuenta de esto puesto que la instrucción CAT 
sólo imprimirá el nombre del fichero una sola vez. La ventaja de 
este método de obtención de copias múltiples es que si usted, 
o cualquier otra persona, borra accidentalmente el fichero sólo una 
de las copias resultará afectada. El resto de las coplas permanecerá 
en el. cartucho y podrán cargarse normalmente. Si se ha realizado 
«x» copias de un fichero para borrarlo se tendrá que entrar la ins- 
trucción ERASE «x» veces. Lógicamente las copias múltiples ocupan 
«x» veces más de espacio en el cartucho. Téngase muy en cuenta 
que las copias múltiples no están protegidas de los efectos de un 
comando FORMAT “m”; que, de una sola vez, las borrará todas. 
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Capítulo 3 


GESTION DE FICHEROS 
DEL MICRODRIVE 


Ficheros secuenciales 


Un fichero es una estructura de información de la que se pueden 
leer o a la que se pueden añadir datos. Los ficheros secuenciales 
obligan a leer y escribir los datos según un orden determinado. Por 
ajemplo, si se deseara leer el décimo elemento de un fichero secuen- 
cial habría que leer primero los nueve que le preceden. En el Spec- 
trum los ficheros se almacenan, normalmente, en un cartucho y 
son del tipo secuencial. (Los ficheros de acceso directo —el se- 
gyundo tipo — no se pueden utilizar en BASIC). 

En el Capítulo 1 se explicó cómo funcionan las corrientes y se 
describieron los canales «K», «S» y «P». Para almacenar datos en el 
Microdrive mediante cualquier procedimiento que no sea el de guar- 
darlos en forma de programas o de vectores hay que designar 
al Microdrive mediante el identificador de canal —“m” (o “M””) (por 
«Microdrive»). Análogamente, se debe recurrir a la sentencia OPEN 4 
para asignar el canal «m» a una determinada corriente aunque, en 
este caso particular, la sintaxis de esa sentencia sea algo diferente 
por necesitar el Spectrum más información. La sentencia OPEN +* 
tiene ahora la forma: 


OPEN Enzoumosd;s  NOMERE" 


la cual creará un nuevo canal con el especificador **m” en la unidad 
de cartuchos d bajo el nombre “nombre” y, luego, asignará ese 
nuevo canal a la corriente número n. Como el fichero “nombre” 
acaba de ser creado no puede contener aún dato alguno. Por esta 
razón se denomina fichero de escritura. 
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Ficheros de escritura 


Este tipo de ficheros está formado por aquellos ficheros que no 
existían con anterioridad a la ejecución de la sentencia OPEN + y 
que han sido creados precisamente por ella. La sentencia principal 
para enviar datos a un fichero del Microdrive es la PRINT %* n; 
que funciona de forma parecida a como lo hace la instrucción 
PRINT normal con la diferencia de que ahora los datos se «im- 
primen» en un cartucho. Como demostración, ejecútese el programa 
siguiente y obsérvese cuándo funciona realmente el Microdrive: 


100 OPEN $9 um 313 "FICHERO PRUEB 
pe 


110 FOR i=1 TO 500 
120 PRINT ¡,""; 
120 PRINT $4; i 

140 NEXT i 

150 CLOSE $4 


Es posible que se haya pensado que el Microdrive está en fun- 
cionamiento la mayor parte del tiempo —cada vez que imprime un 
número—. ¡No es así! Después de la sentencia OPEN + la unidad de 
cartucho funciona durante el tiempo que necesita para buscar un 
fichero del mismo nombre que el especificado en la instrucción. 
No podrá encontrarlo ya que se trata de un fichero de escritura. 
Lo que hace OPEN + es crear un área de memoria llamada «buffer» 
(registro temporal) utilizada como zona de almacenamiento temporal 
o intermedio de caracteres. Cuando se encuentra una instrucción 
PRINT se almacenan los caracteres en el «buffer» y no se transfe- 
rirán al cartucho hasta que el «buffer» no esté lleno. En ese momen- 
to, la unidad de cartucho funcionará durante aproximadamente un 
segundo (tiempo necesario para transferir los 512 caracteres del 
«buffer» al cartucho); luego, una vez vaciado el contenido del «buf- 
fer» lo dejará dispuesto para almacenar nuevos caracteres. Por esta 
razón, durante la ejecución del anterior programa, la unidad de car- 
tucho sólo actuó en un par de ocasiones (el «buffer» se llenó unas 
cuatro veces). Es absolutamente imprescindible emplear una senten- 
cla CLOSE 4 al trabajar con ficheros de escritura. Si no se hiciera 
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CLOSE, los últimos datos enviados al «buffer» no podrían llegar ja- 
más al cartucho puesto que el «buffer» podría no haberse llenado to- 
talmente. De esta forma, se obtendría un fichero incompleto. La sen- 
tencia CLOSE *+* hace que los datos que aún hay en el «buffer» 
pasen al cartucho y luego elimina el «buffer» de la memoria. Si 
se ejecuta una sentencia CLEAR + mientras está abierta una corrien- 
te de escritura, el fichero resultará incompleto y no será posible 
utilizarlo. Un fichero parcial de este tipo debe ser borrado. Si se in- 
tenta abrir (con OPEN) un fichero que ya está abierto para otra co- 
rriente se obtiene el mensaje de error Reading from a “write” 
file (Lectura de un fichero de escritura). 


Ficheros de lectura 


Cuando ya se ha abierto con OPEN +, se le han enviado da- 
tos y ha sido cerrado mediante CLOSE el fichero de escritura pasa 
a ser de “lectura” y aparece en el catálogo del cartucho. Para 
leer los datos contenidos en ese fichero hay que abrirlo mediante 
la sentencia OPEN % con la misma sintaxis que antes. La lectura 
de los datos en sí se realiza normalmente con la sentencia INPUT 4. 
Para leer los datos existentes en el fichero creado por el programa 
anterior introdúzcase: 


100 OPEN $9; “me 31; "FICHERO PRUEB 
A” 

110 IMPUT $9; ¡ 

120 PRINT iz"; 

130 GO TO 110 


Estas sentencias crean inicialmente un canal de ficheros de lectura 
en la corriente 4. Luego, se lee del fichero la variable i (línea 110) 
que se imprime en la pantalla. El programa, retrocede entonces a su 
inicio y vuelve a empezar. Terminará con un error de End of File 
(Fin de fichero). Veremos más adelante en este mismo Capítulo 
cómo detectar el fin de un fichero antes de que se produzca. Como 
probablemente se habrá adivinado, mientras se ejecutaba el programa 
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también se emplea un «buffer» cuando se leen datos desde un fiche- 
ro. Este «buffer» tiene igualmente una capacidad de 512 caracteres. 
Cuando se encuentra una sentencia INPUT + se lee un bloque de 
512 caracteres (o menos si se trata del último bloque) desde el 
cartucho y se almacena en el «buffer». Cuando una rutina de entrada 
(o una sentencia INKEY$ +) requiere un carácter lo extrae del «buf- 
fer». Si es el último que allí había, se leerá otro bloque de 512 ca- 
racteres del cartucho. El proceso se repetirá hasta que no haya 
nada más en el fichero produciéndose entonces un error de Fin 
de fichero. 

Para leer caracteres de un fichero, además de utilizar la senten- 
cia INPUT +, se puede recurrir a la INKEY$ + que ya menciona- 
mos en el capítulo 2. La instrucción INPUT va reuniendo los carac- 
teres en secuencia hasta que alcanza el final de una línea y, en ese 
momento, asigna la secuencia a una variable. Por el contrario, 
INKEYS tn sólo lee un carácter. A diferencia de la función INKEYS$ 
normal, INKEY$S + «espera» al carácter. (Los INKEY$ + aplicados 
a una corriente del Microdrive no dan nunca como resultado una 
cadena vacía [” *1). Una vez se ha acabado de leer un fichero hay 
que hacer una sentencia CLOSE +. Aunque esto no es tan impor- 
tante como con los ficheros de escritura, resulta aconsejable por razo- 
nes de elegancia y para evitar que haya grandes cantidades de me- 
moria ocupadas por «buffers» vacios. Se puede hacer perfectamente 
CLEAR %* con ficheros de lectura abiertos. 

Cuando se utiliza la sentencia INPUT + el contador empleado 
por el Spectrum para hacer aparecer la petición «scroll?» en la 
pantalla se actualiza de forma que, si se lee el contenido de un fiche- 
ro y se imprime en la pantalla, ésta se desplazará en sentido ver- 
tical continuamente. Si no interesa obtener este efecto, se puede 
insertar en el programa una línea como ésta: 


LET ec=PEEK 23622: INPUT H<LO Q 
ME OSEA): POKE 234792,=c ro 
Cualquier sentoncia INPUT 4 actualiza el contador aunque nor- 
malmento no os posiblo apreciarlo. Una forma sencilla de eliminar la 
petición de «scroll on un programa es utilizar la sentencia: 


37 


INPUT *" 


Algunos comentarios acerca de PRINT e INPUT 


Hay que ser muy precavido al emplear las sentencias PRINT + 
e INPUT + con los ficheros del Microdrive por los efectos que pue- 
den tener ¡os separadores situados entre los argumentos. Cuando se 
imprima sobre la pantalla o con la impresora y se emplee una coma 
(,) se saltará al principio de la siguiente media línea. Si se coloca un 
apóstrofe ('), a su vez, se pasa a una nueva línea. Ahora bien, 
en los ficheros del Microdrive no existen «líneas» y, si se coloca una 
«coma en una sentencia que imprima datos en un fichero (por ejem- 
plo, PRINT 4 4; a, b), el Spectrum enviará, en vez del valor de las va- 
riables, el código de control que corresponde a la coma (CHR$ 6). 
De forma similar, el apóstrofe hará que se envíe un CHR$ 13 
(correspondiente a NEWLINE). Los CHR$ 6 pueden confundir al 
Spectrum cuando se emplee INPUT + (aunque no ocurrirá esto si 
se recurre a INKEY$). Como ejemplo, pruébese el siguiente pro- 
qrama: 


10 OPEN Hdjumozdy "PRUEBA ERROR” 

20 LET at="PRIMERO": LET bt="5 
EGUNDO" 

230 PRINT H4za$,bs$ 

40 CLOSE $4 

50 OPEN $43 "m"313 "PRUEBA ERROR" 

$0 INPUT H4;as 

70 INPUT $4;b5 

80 CLOSE $4 


Quizás no se esperaba el error de Fin de fichero de la línea 70. 
Sin embargo, el PRINT % de la línea 30 envía el texto «primero» 
«seguido de la coma (CHR$ 6), el texto «segundo» y, finalmente, 
un NEWLINE (CHR$ 13). La sentencia INPUT + supone que las va- 
nables guardadas en un fichero están separadas mediante CHR$ 13. 
Consecuentemente, en este programa INPUT + asignó a a$ «pri- 
mero» 1 CHR$ 6 + «segundo» y luego vació el fichero. Al in- 
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tentar asignar a b$ un carácter contenido en el fichero, se produjo 
el error de Fin de fichero. 

Los separadores de las sentencias INPUT + también crean otros 
problemas poco previsibles. Si se hace: 


10 CPEN 39; "m" 313 “FICHERO PRUEEA 
35" 


20 INPUT $9;a%,b%$ 


(suponiendo que «fichero prueba» exista) se recibirá el error Writing 
to a «read» file (Escritura sobre un fichero de lectura). La explica- 
ción está en que la coma de la línea 20 intenta enviar un CHR$ 6 a un 
fichero de lectura. Si en un fichero hay uno o varios signos de 
comillas (') pueden aparecer problemas cuando se intenten leer ca- 
denas mediante una sentencia INPUT +. Por tanto, conviene emplear 
sentencias del tipo INPUT * ... LINE. Las reglas de oro para uti- 
lizar PRINT + e INPUT + son: 
l. Con PRINT + se deben separar las variables mediante apóstro- 
fes o bien emplear líneas separadas. Por ejemplo, PRINT + 4; 
a$'b$ o PRINT Y 4; a$: PRINT + 4; b$. 


2. En las sentencias INPUT hay que emplear como separadores los 
puntos y comas. Cuando se usen variables de tipo cadena se 
debe recurrir a LINE por ejemplo INPUT + 4; LINE a$; LINE b$. 


Empleo de MOVE con los ficheros del Microdrive 


El comando MOVE tiene multitud de usos pero aquí trataremos 
únicamente de aquellos que están directamente relacionados con los 
ficheros del Microdrive. Si se dispone de un fichero de datos y se 
quiere ver qué contiene sin tener que abrirlo y leer carácter a ca- 
rácter, se puede hacer: 


MOVE eme gd; "NOMERE”" TO $2 


(donde TO es una palabra ciave) con lo que se imprimirá en la co- 
rriente 2 (la pantalla) el contenido del fichero que se especifique. Si 
se intenta hacer MOVE con otro tipo de fichero (por ejemplo, un pro- 
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grama) se obtendrá un error Wrong file type (Tipo de fichero erró- 
neo). Si se desea obtener una copia sobre papel de un fichero se 
puede hacer: 


MOVE "mw 3d; "NOMERE"TO $3 


que provocará la impresión sobre la corriente 3 (la impresora ZX). 
También se puede emplear MOVE para copiar ficheros de datos: 


MOVE “midi; "FICHERO 1% TO “mid 
23 "FICHERO 2" 


que transfiere los datos de «Fichero 1» de la Unidad de Cartucho 1 al 
«Fichero 2» de la Unidad de Cartucho 2. 


Inserción de elementos en un fichero 


Supongamos que disponemos de un fichero que contiene una gran 
cantidad de datos, como, por ejemplo, una lista de nuestros pro- 
gramas. Supongamos también que deseamos añadir nuevos ele- 
mentos al final de ese fichero. Como no se puede escribir sobre 
un fichero de lectura, es necesario crear un nuevo fichero, transfe- 
rir a él el contenido del antiguo fichero y, mientras el nuevo fichero 
está aún abierto, añadir los nuevos datos. Una forma de conseguir 
esto sería leyendo los elementos del anterior fichero uno a uno y es- 
cribiéndolos en el nuevo. Sin embargo, se trata de un método lento 
e ineficaz que, con algunos tipos de datos, puede no funcionar. La 
mejor solución consiste en utilizar el comando MOVE tal y como se 
demuestra en el siguiente programa que añade al fichero «software» 
los elementos “25 Diciembre 1983” e “Invasores del espacio": 


10 OPEN $4 om sd CSOFTWAREZ"” 

20 MOVE "m1; "SOFTWARE" TO $3 
30 PRINT $4; "IMNVASORES DEL ESPAC 
10.25 DICIEMERE 1*%83" 

40 CLOSE $4 


Si se desea que el nuevo fichero tenga el mismo nombre que el 
antiguo se pueden añadir las líneas siguientes: 
40 


30 ERASE “ml; SOETUARE" 
60 MOVE emi CSOFTULARES" TO er 
21 CSOFTIWJARE” 

0 ERASE em ql; CSOFTIJARES” 


El programa anterior se ejecutará mucho más rápidamente si los 
dos ficheros están almacenados en Microdrives distintos. 

La instrucción MOVE resulta también muy útil para unir el conte- 
nido de dos ficheros de datos —por ejemplo para conseguir el fiche- 
ro «tercero» a partir de los ficheros «primero» y «segundo» —: 


10 COPEN H4;5 m1; "TERCERO" 

20 MOVE mili; “PRIMERO” TO H9 
30 MOVE em q1] “SEGUNDO” TO H4 
40 CLOSE H4 


Al igual que antes, la velocidad de ejecución del programa puede 
aumentarse notablemente empleando dos o incluso tres Microdrives 
con un fichero en cada uno. 


Empleo de LIST + 


Aunque la forma más normal de escribir datos en un cartucho es 
mediante la instrucción PRINT +, también puede utilizarse la senten- 
cia LIST +. Esta instrucción listará un programa en BASIC sobre 
una corriente que puede ser un canal del Microdrive. Cuando se lee 
el fichero, la palabra especial (por ejemplo STOP) será de tan sólo 
un carácter (CHR$ 266 por STO) en vez de varios caracteres con 
espacios en blanco entre las palabras clave. Puede resultar muy útil 
convertir un programa a caracteres mediante LIST + si se desea 
recorrer el programa en BASIC con, por ejemplo, un procesador de 
textos. El programa siguiente —«Búsqueda»— buscará una deter- 
minada secuencia de caracteres en el fichero creado por las senten- 
cias OPEN %, LIST + y CLOSE + e imprimirá en la pantalla toda 
línea que la contenga. Esta posibilidad resulta especialmente útil 
cuando se busca el nombre de alguna variable o una determinada 
sentencia GO TO. Se puede emplear también para buscar en cual- 
quier tipo de fichero de datos que no sólo sean listados de progra- 
mas. El programa termina con un mensaje de End of file (Fin de 
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977? REM PROGRAMA EUSCUEDEA 

1000 INPUT “UNIDAD CARTUCHO N,?” 
¿d;3 NOMBRE FICHEROS"; LINE +2 
1005 CLOSE $9: CPEN HAd:com3d3+4% 
1010 INPUT “CADENA GUE BUSCAR"; 
LINE b3 

1020 1¡NPUT $9; LINE as 

1030 FOR ¡=1 TO LEN as-LEN b3+ 
1025 IF a$f£i TO ¡+LEN béi-1o=b% T 

HEN PRINT a$: FAUSE SS: 60 TO 140 
10 

1040 NEXT ¡ 

109050 Ga TO 1020 


Si se desea buscar palabras especiales (como GO TO) hay que 
pulsar THEN con lo que se pone al Spectrum en el modo «K» y, 
lhiego, pulsar la tecla correspondiente (G para GO TO) para, final- 
mente, borrar la palabra THEN. 


EOF: End of file (Fin de fichero) 


Al leer un fichero se acaba por alcanzar su final. Si se intenta 
leer más allá de ese punto se provoca un error de fin de fichero. 
sin embargo, existen varios métodos para detectar el fin de un fiche- 
lo «antes de que ocurra, métodos que hacen los programas más 
elegantes y eficaces. 

La forma más sencilla de detectar un EOF consiste en escribir 
y antes de hacer CLOSE un carácter o secuencia de caracteres que 
normalmente no debería utilizarse al final del fichero. Mis preferen- 
cias personales me hacen emplear la cadena CHR$ 0 + CHR$ 0 que 
nunca utilizo para otra cosa. Este método va muy bien para la ma- 
yoria de los programas pero no puede emplearse si se tiene un pro- 
grama diseñado para leer todo tipo de ficheros de datos o que pueda 
leer ficheros de programas o de código máquina (cómo se consigue 
esto último se explicará más adelante). 

Otros BASICs basados en disco tienen la función ON EOF GOTO 
a, más generalmente, ON ERROR GOTO que produce el salto a una 
determinada línea cuando se detecta un EOF (o cualquier otro error). 
Desgraciadamente, el Spectrum carece de esta función pero, con un 
parode líneas en BASIC, se puede detectar el 99 % de los EOF:s. 


a, 


Si se añaden las siguientes líneas a un programa (colocándolas lo 
más cerca posible del principio) se dispondrá de la función FN Elx) 
donde «x» es el número de una corriente. Esta función da por re- 
sultado el valor 1 si el fichero está vacío o el valor 0 en cualquier 
otro caso. 


10 DEF FN ElA>=(C INT <PEEK <«(FN 
DIA)+E573/23-2r*INT C(PEEK (FN DA 
)3+6873/9) AND <¿FN PCEN DeA>)+110o= 
FN PCFN DIA)+69)30)) 
11 DEF FN PCP)=PEEK P+2Z54x*PEEK 
cP+1> 
12 DEF FN DDI=FN P(Dr2+23579) 
+FN P(23631)3-1 


Si la corriente x no está abierta o no es un canal «M», entonces el 
resultado no tendrá sentido alguno. El 1 % de las veces en que esta 
función no trabaja correctamente corresponde a aquellos casos en los 
que el número de caracteres existentes en el «buffer» es un múltiplo 
exacto del número 512 lo cual, afortunadamente, pasa muy pocas 
veces. Para asegurarse de que no ocurre esto, hay que utilizar la 
función: 


FM PCFN Dix2+11 


mientras se crea un fichero de escritura y antes de cerrar la corrien- 
te «x». Si es O hay que imprimir con anterioridad un carácter 
extra en la corriente. 

Se puede recurrir también a la siguiente rutina en código máqui- 
na para disponer de una función ON EOF GOTO. Su longitud es de 
67 bytes. Puede situarse en cualquier lugar de la memoria. Antes 
de hacer GO SUB 8150 la variable eof ha de tener por valor el de 
la posición requerida, y línea el del número de línea requerido (que 
debe existir). La rutina carga el código mediante POKEs y luego lo 
ejecuta. Después de esto, en cuanto se da un EOF, no se produce 
ningún mensaje de error sino que el intérprete salta a la línea espe- 
cificada. La función no actúa cuando se produce cualquier error (in- 
cluido EOF). Si usted quiere cambiar el número de línea del salto 
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provocado por el error, cambie línea y GOSUB 8220. Para saber en 
qué línea se ha producido un EOF. 


LET LINERROR=PEEK 23753+2Z23ó*PEEK 
23254 


Hay que hacerlo antes de que se realice ninguna operación con el 
Microdrive pues, de lo contrario, se obtendrá un resultado inco- 
rrecto. 


Listado de ON EOF GOTO 


8145 REM 3332 3636 36 RRA 
3144 REM +* GOTO EGF CDE FIN  * 
e DE FICHERO) a 


8148 REM EOF=POSICION INICIO, LI 
NEA=SALTO A ERROR 
8149? REM RECOMENDADA :45190 / 324 


8150 RESTORE 82350 

38140 LET c=0 

8170 FOR ¡=eo0f TO eof+gé66 

3180 READ a: LET c=c+a 

810 IF ax>260 THEN PORKE ¡,a 
8200 NEXT ¡ 

3210 IF c<>ó6456 THEN PRINT "ERR 
OR EN SUMA DE CONTROL": STOP 
3220 POKE eof+492,1linea-2596*INT ( 
l1ine/256) 

8225 POKE eaf+50,INT (linea/256) 
28230 RANDOMIZE USR eutf 

3240 RETURN 

3250 DATA 33,17,0,7,223,42,61,92 
8260 DATA 115,35,114,207,479,1,0, 


0 
8270 DATA 201,42,61,72,58,58,92, 
254 

8280 DATA 7,194,23,19,74,25,86,21 
3 
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3 
O DATA 110,1=,9: 


AS CS 
PU 
DA 
4 
“y 
¡n] 


FP) mnoRawo 


(1 DATA 17,260,240,23,66,92,11 


DATA 1194,35,54,1,253,59,0,2 


0 0 0 CN Ca 
Gt 0 


Lu 
O 


DATA 195,125,27 


Empleo de programas etc. como ficheros 
de datos 


Normalmente si se intenta abrir una canal del Microdrive con el 
nombre de un programa o de cualquier otro tipo de fichero que no 
sea de datos, se obtiene un error Wrong file type (Tipo de fichero 
incorrecto). Puede resultar muy conveniente leer ese tipo de ficheros 
desde el BASIC. Se puede conseguir esto empleando la siguiente ru- 
tina en código máquina a la que hemos dado el nombre de «open + 
cualquier cosa». Es prácticamente igual a la sentencia OPEN pero 
permite abrir cualquier tipo de fichero. También informa acerca de si 
el fichero existe o no lo que también resulta muy interesante. Antes 
del GO SUB 8350 la variable abierto debe tener el valor de la posi- 
ción de memoria que debe ocupar la rutina (se recomienda la po- 
sición 32320 para 16 K y la 65090 para 48 K). Con el GOSUB 
se carga el código (mediante POKE) pero no se ejecuta. 


Listado de OPEN Y cualquier cosa 


20349 PREM rre rrerr erre xXx 
3295 REM * OPENF+CUALQUIER CUSA 
82344 REM REX AAA 
3397 REM apern= On DE INICIO 
8348 REM RECOMENDADA :?:SobrO 327 
0 

S350 RESTORE 900: LET c=0 

S360 FOR pet TO copent+*3 

S20 READ a: LET c=c+a 
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8375 POKE ¡,a 

8380 NEXT i 

8385 IF c<>10725 THEN PRINT "ER 
ROR EN SUMA DE CONTROL": STOP 
8390 RETURN 

3400 DATA 58,214,92,205,29,23,33 


8410 DATA 0,175,237,66,1,0,0,216 
8420 DATA 50,215,92,33,10,0,34,2 


2430 DATA 92,42,123,92,34,220,92 
3440 DATA 214,92,135,323,22,92,95 


8450 DATA 0,25,217,229,217,229,2 
07,34 

38460 DATA 221,203,24,70,40,13,17 
5,207 

8470 DATA 33,207,44,225,217,225, 
217,1 

8480 DATA 1,0,201,221,203,4,190, 
75 

8490 DATA 229,207,233,209,225,115 
135,114 

8500 DATA 221,126,47,230,4,178,2 
¿79 

8510 DATA 4,0,217,225,217,201 


Para utilizar esta rutina hay que indicarle qué unidad de cartucho, 
corriente y fichero nos interesa. Esta información se pasa haciendo 
POKE 23766 (unidad de cartucho), POKE 23768 (corriente) y POKE 
sobre las 10 primeras posiciones del área de gráficos definidos por 
ol usuario para guardar el nombre del fichero. Por ejemplo, si se 
desea hacer OPEN + 6; “m”; 2: “test” (donde “test'” es cual- 
quior tipo de fichero) las instrucciones tendrán que ser: 


35300 POKE 23766,2: REM NUMERO UN 
IDAD 

3910 POKE 23748,6: REM NUMERA Ca 
RRIENTE 
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20 LET As$="TEST” 

30 FOR i=1 TO 10 
90 1F ¡>LEN 2% THEN. POKE USER 
tela 2 60 TO 23550 

Saab PORKE USE “a €= Lo CODE (ASI) 
23650 NEXT 1 

3920 LET a=USR open: REM LLAMAR 
Aa LA RUTIN 


GQ CL a 
cn Cn 13 


Si el nombre del fichero es de menos de 10 caracteres hay que 
añadir el número necesario de espacios (CHR$ 32s) en blanco y 
luego transferirlos mediante POKE (linea 3540). El valor que retorna la 
función USR open (a en el ejemplo) significa lo siguiente: 


O — corriente ya abierta 

1 — fichero no encontrado 

2 — fichero de datos 

6 — no se trata de un fichero de datos. 


Si el fichero no existe, se cierra la corriente y no se crea el 
fichero. Por tanto, el método es únicamente válido para ficheros de 
lectura. La rutina no crea ficheros de escritura (al contrario de lo que 
ocurre con el comando OPEN +). 

Si el número devuelto por la rutina es un 6 —es decir, si no se 
trata de un fichero de datos— ¿cómo se sabe de qué tipo de fichero 
se trata? La respuesta está en los nueve primeros caracteres leídos 
del fichero. Estos caracteres guardan todas las características del 
fichero entre las que se incluye el tipo. El primer carácter determina 
el tipo: 


Programa en BASIC 
Vector numérico 
Vector de cadenas 
Bytes 


OM MN == O 


Los ocho bytes siguientes guardan detalles como la longitud, 
inicio, número de línea, etc. y, en realidad, se sacan de las variables 
del sistema HD__00 a HD__11 (Ver el Apéndice A para más deta- 
lles). Lo que viene tras los nueve primeros bytes es el fichero en 
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sí. El siguiente programa, «Catálogo completo», es una versión no- 
tablemente mejorada de la función CAT. Además de dar todos los 
nombres de los ficheros, da también todos los otros detalles refe- 
rentes al fichero: su tipo, longitud, número de la línea de auto ini- 
cio, etc. El programa necesita las rutinas «Corriente 14-z$» y «Open 
cualquier cosa» parz funcionar. Es algo más lento que CAT pero ofre- 
ce una gran cantidad de información útil. 


Listado de «Catálogo completo» 


4997 REM XXXIX CEA 
4778 REM * CATÁLOGO COMPLETO 
49792 REM AXXXEXELLLCELEAAEAEE RARA 
5000 LET z%="": CAT $14,303 

3010 CLS : POKE 22376,d: POKE 23 
¿68,15 
53020 PRINT 
z$( TO 10) 
3030 LET z*=28$:12 TO) 
5040 IF LEN 2z$<10 THEN 
30 

59050 FOR ¡=1 TO 10 
3060 POKE LISR "a"+i¡i-1,CODE z$(1> 


INVERSE 1; "NOMERE:" 


a A] 


0 Ta = 


EN) 


3070 NEXT | 
2080 CLOSE R13: LET z=U5F open 
2090 PRINT z$(€ TO 103,"  "; 


3 
3100 1F z=2 THEN  FRINT "FICHERO 
DE DATOS": GO TO 5300 
3110 LET aft="": FOR ¡i=1 TO 5 
9120 LET af=aé+INKHEVYEHRH1S315 NEXT 
3130 LET z=CODE a+$t1> 


JH 


2140 GO TO 5S150+zx*40 

91492 REM z=0 PROGRAMA 

2150 PRINT *LIMEA DE PROGRAMA *; 
CODE a$r(8)+236*CODE arc?) 

3160 60 TO 5300 

012872 REM z=1 - CONJUNTO NUMERICO 
3120 PRINT *CONJUNTO  *¿EHER%* (CO 


DE afié>)-32) Dl (31 


3200 


60 TO 232300 


3227 REM z=2 CONJUNTO DE CADENAS 

3230 PRINT "CONJUNTO —";¡CHAR%* CO 
DE abró>)>-F6)3"BLo" 

3240 GO TO 5300 

926? REM z=3 CODIGO 

3270 PRINT "CCDIGOA  ";CODE asc9> 
+256*CODE asrS); 

3280 PRINT ","¡CODE asr2i+256xCO 
DE asti3) 

3300 CLOSE $15 

3310 LET zé=z$X12 TU 5 

5320 64 TO 50404 

330 PRIMT *2$:2 TO LEN zé-135"k 
BYTES LIBRES" 

390 RETURN 


Generación de ficheros que no guardan datos 


Desde un programa en BASIC, además de leer desde el cartucho 
ficheros que no contengan datos, es posible generarlos. No hace 
falta recurrir al código máquina; basta un comando POKE. El empleo 
de esta posibilidad puede ser bastante difícil y no la recomiendo a 
los principiantes: los errores que se cometen en su utilización pueden 
ser fatales para el ordenador. 

El método empleado consiste en colocar tras una sentencia 
OPEN + unas líneas como las siguientes: 


100 DEF FM pip)»=PEEK p+256xPEEK 
(pei) 


110 POKE FN pos*2r23566+280+EN p 
(23631)+66,9 


donde s es el número de la corriente de la instrucción OPEN, 
Así se engaña al sistema haciéndole crear segmentos de ficheros 
que no son de datos cada vez que se escribe en el cartucho un 
dato que esté en la corriente. Después del POKE se deben escribir 
nueve caracteres en la corriente elegida. El primero indica el tipo del 
fichero que deseamos generar y los ocho siguientes determinan los 
otros parámetros del fichero y son los mismos que se han mencióna- 
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do anteriormente para los ficheros de lectura: las variables del sis- 
tema HD__00 a HD__11 (Véase Apéndice A). 

Como ejemplo, el programa siguiente almacena todas las varia- 
bles de un programa en BASIC en un programa como el del Ca- 
pítulo 2, pero con una importante diferencia: en vez de guardarlas 
como dos ficheros de tipo CODE las almacena como un fichero de 
programas de forma que puedan ser fundidas (MERGE) con otros 
programas. Este puede resultar un método más lento que el anterior 
pero es mucho más flexible. 


Listado de «Almacenamiento de variables» 


3727 FEM ALMACENAMIENTO GE VARIA 

BLES COMO PROGRAMA 

4004 0OFEN $4;"m";1;3"variables" 

34010 DEF FN ptp2>=PEEK p+Z3ó*PEEK 
(p+1) 

4020 LET d=FN pridr2+23Oó4+ E AEN 

pt2363153-1 

4030 IF PEER (¿d+9:<3C0DE "M" THE 

N — FRINT "Errar": STUP 

9040 POKE d+47,4: REM arreglar 

9095 FOR ¡=1 TO 2: NEXT 1 

4050 LET z=FN pi23ó913-FN prozzsz 

231 

490559 LET z=FN pr226913-FN pri2342 

gai 

4060 PRINT H9;CHE3S 0Q;: REM senal 
izador del pragrama 

9070 PRINT $9¡CHR% ¿2-20é*INT <z 

/2ZI6))¡CHRE INT C2/206)]3 

4080 PRINT $4;¡CHR$ PEEK 236427;C0H 

R$ PEEK 2236283: REM inicia 

4090 PRINT H$4;CHRE$ 0O;CHR$* O: RE 

M lonaitud programa 

4100 DT HA¡CHR$ 2ZOS¡CHES$ 255; 
: REM “numera de Minsa 

4110 FOR ¡=FN pr22627)3) TO FN pr2 

36273)+z-1 

4120 PRINT 49;CHE$ FEEK ¡; 
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9130 NEXT ¡ 
4150 CLOSE H49 
41560 RETURN 


La linea 4000 crea el fichero de escritura. La linea 4040 realiza 
el POKE correspondiente. Aunque las lineas 4045 y 4050 puedan pa- 
recer supérfluas son, en realidad, imprescindibles. La variable z 
guarda el número de bytes que hay en el área de variables (linea 
4055). La linea 4060 imprime el primer carácter para indicar que el 
fichero es de programas. La linea 4070 imprime los dos caracteres 
que definen la longitud del fichero y la linea 4080 hace lo mismo 
con los dos que indican el inicio del área de variables. La línea 
4090 asigna el valor O a la longitud del programa. La línea 4100 hace 
que la línea de auto inicio sea 65535 (es decir que no haya auto 
inicio). El bucle de las líneas 4110 a 4130 envía cada byte de la 
variable al fichero antes de que la linea 4150 lo cierre. 


Otras formas de leer datos 


Aunque, como ya hemos dicho, las sentencias INPUT + e 
INKEY$ 4 son las más usadas para leer ficheros, la MOVE puede 
resultar más útil. Si la rutina «Corriente 14-z$» está activa, la línea: 


LET z2%="" ¿MOVE "mp1; "FICHERO" T 
O $19 


leerá todo el fichero de datos de una sola vez desde el cartucho y lo 
guardará en la variable de tipo cadeza z$ (si la memoria lo permi- 
te). Una vez hecho esto, la variable puede ser manipulada y modifi- 
cada según se requiera y luego puede escribirse en otro fichero con 
una sola instrucción PRINT, por ejemplo: 


OPEN $9 ome 1 FICHEROS" ¿FRINT +4 
4:25: CLOSE $49 


Este método es el que. tiene una menor repercusión sobre el car- 
tucho en cuanto a desgaste y desperfectos lo cual puede ser un 
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factor importante cuando se trabaje con ficheros de datos de gran 
volumen y uso frecuente (puesto que la unidad de cartucho sólo 
actúa dos veces: una para leer y otra para escribir). 


Rutina de estado 


La rutina siguiente, denominada «Estado», permite que un pro- 
grama pueda saber si un Microdrive en particular está conectado o 
no y si hay un cartucho en él. En este último caso se indica si el 
cartucho está protegido contra escritura o no. Antes de hacer 
GOSUB 8550 la variable stat debe tener por valor el de la posición 
de memoria deseada. 


Listado de «Estado» 


3595 REM XXXII 

2546 REM * ESTADO E 

25097 REM Ferri ries 

2548 REM stat=DIRECCION INICIO 

23549 REM recomendada: 64+£0 321 

0 

359590 RESTORE 3430: LET c=0 

2360 LET x2=INT (Cstat+1007- 2546) 
¿ LET x1i==tat-2aé*x2+100 

250 FOR ¡=stat TO <tat+123 

3380 READ a: LET c=cac+a 

2570 POKE ¡,a 

3600 NEXT ¡ 

2610 IF cxo143941+94x*/x1+x2) THEN 
PRINT "error en suma de control 
"s STOP 

3420 RETURN 

3630 DATA 58,2149,92,2942,29,323,33 
126 

35690 DATÁ 17,43,125,180,22,251,3 

2,136 

2650 DATA 19,6,6,217,237,230,49,3 


7 
paa 


3660 DATA 4,14,248,24,84,9423,1293, 
181 
26470 DATA 232 
3£50 DATA U, 
267040 DATA 2, 
Ú 

3700 DATA 42,238,211,227,203,x1, 
x2,62 

ar10 DATA 2236,211,2237,2039,x1,x2, 
24,17 

3720 DATA 62,227,211, ,227,122,211 
¿247,205 
3730 DATA x1,x2,62,23 4211,2237,2 
45,x1 
2790 DATA x2,16,214,1:22,211,297, 
2,238 
3750 DATÁ 211,227,24,162,177,24953 
0 O Ca 
3760 DATA 0,11,120,177,232,201,29 


A 
hi 50 


Ba 
Ox 
[0] 


DATA 201,219,229,230,1,1,1, 


00 (0 0 


y UY >] 


La instrucción GO SUB sólo pone el código máquina en el lugar 
adecuado pero no hace que se ejecute. Antes de usarla hay que 
colocar el número de la unidad de cartucho mediante POKE 23766 
y luego utilizar unas cuantas líneas como las siguientes: 


20300 LET a=LISkR stat 
¿310 IF a=0 THEN PRINT "MICROGR 


IVE NO CUNECTADO" 

2320 1F a=1 THEN  PRIMT "CARTUEA 
OU PRESENTE” 

¿030 1F a=2 THEN  PREINT "CARTUCH 
a PROTEGIDO CONTRA ESCRI TURA" 
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Comandos para color 


En el manual del Interface de Sinclair se hace de pasada refe- 
rencia a la posibilidad de que los comandos para color puedan 
no funcionar después de emplear canales que no sean el «K», 
el «S» o el «P». De hecho, éste es un serio problema que hay que 
tener muy en cuenta cuando se manejan ficheros. 

El problema consiste en que, después de utilizar los canales del 
Interface para salida, los comandos permanentes para color (como 
PAPER 3) no tienen efecto aparente. Y, lo que es más importante, lo 
que hacen tales comandos es enviar datos a ficheros de escritura. 
Para corregir este problema, antes de fijar los colores permanentes 
hay que hacer una sentencia PRINT;. Para ver este error en acción, 
haga lo siguiente: 


10 OPEN $4; “m1: "COLPRUEEA" 
20 PRINT $4; “PRIMERA LINEA" 

30 FLASH 1: PAPER 4: CLS 

40 PRINT $4; "SEGUNDA LINEA” 

50 CLOSE $4 

¿0 MOVE «m1; "COLPRUEES” TO $2 


La línea 10 crea el fichero de escritura «colprueba» y la 20 le envía 
una línea de datos. La línea 30 debería hacer que toda la pantalla se 
mostrara intermitentemente verde pero, en cambio, envía los códigos 
de color al cartucho. Las líneas 40 y 50 envían otra línea de datos 
al fichero y luego lo cierran. Finalmente, la linea 60 imprime todo el 
fichero en la pantalla con lo que es posible descubrir la indeseada 
nserción de los códigos de color. La forma de corregir el problema 
on este caso es hacer: 


25 PRINT ; 


Ampliación del «catálogo de corrientes» 


se pueden añadir las siguientes líneas al programa «Catálogo de 
cormentes» para que dé más detalles acerca de las corrientes del 
Microdrive. 
a 


1630 
1240 


Catálogo de corrientes 2 


IF F$="M" THEN  GÓ TO ZS00 
IF FN PXD><>3 ÁND FN PiD+21 


<>8 THEN —RETUEN 


1850 


CIONAL :" 


1850 


2999 
2300 
E" 

2510 
2520 


2530 
2590 
2350 
25360 
31=] 
200 
2075 


0,83: 


2580. 
M5" 

2070 
2600 
2610 


2710 
2720 


PRINT "SALIDA DE LA ROM ADI 
¡FN P(D+5) 
PRINT "ENTRADA ROM 
2" FN PCD+7> 
REM CANAL M 
PRINTO INVERSE 1;"MICRODRIW 


GO SUB 128600 

PRINT "UNIDAD NUMERO 
s"¡PEEK (D+25) 

LET M=FN PrD+24> 

PRINT "MAPA DE LA CINTA:” 

FOR I1=0 TO 31: FOR J=i TO á 

POKE 143289+204938+ 2*32+I*26+ 


JFEEK £M+I> 


NEXT J:1 NEXT 1 

PLOT 0,753: DRÁW 233,0: 
DRAW 255, 

a “ "AREA DEL MAFA qn 
MIES 

PRINT "NOMERE CARTUCHO 3"; 

FOR 1=D+94 TO D+S3= 

PRINT CHR$ PEEK I; 

NEXT 1: PRINT 

PRINT "NOMERE FICHERO A 

FOR I=2+149 TO D+23 

PRINT CHR$ PEEK 1; 

NEXT Il: PRINT *"ESPACIO LIB 

LET F=0 

FAR 1=0 TO 253 

LET F=F+NOaT POINT (¿1,00 

NEXT 1 

PRINT F-Z2;"kKEYTES" 

a TO 1500 


PLOT 
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Entre los detalles adicionales están el número de la unidad de 
cartucho, el número del cartucho, su nombre y el nombre del fiche- 
ro así como el espacio libre que queda en el cartucho elegido. 
Asimismo, se muestra un «mapa de la cinta» que viene a ser un 
diagrama de barras que muestra qué áreas de la cinta están ocupa- 
das y qué áreas cstán libres. La figura 3 muestra la salida del 
programa con un cartucho recién estrenado. Las zonas oscuras 
señalan las secciones de la cinta que o bien no existen o bien están 
ocupadas. La zona negra de mayor tamaño que puede verse a la 
izquierda indica una sección de la cinta que, simplemente, no existe 
puesto que el sistema es capaz de trabajar con cintas de mayor lon- 
gitud. La barra central señala dónde está la unión en la cinta 
y la de la extrema derecha muestra el primer sector (que nunca se 
emplea). El «mapa» de una cinta guardada en un cartucho con más 
tiempo de uso contendría más barras verticales que mostrarían dónde 
hay guardados programas o datos. 


F) ura ERÓO DE CORRIENTE 10 


IDENTIFICADOR DE CáarmaL 
MICRODRIVWE 

KUITINA DE SáLIDOA 
HITINMA DE ENTRADE 

“dal IDA DE LAS PU ADICIONAL 13553 


vE 
Py 
0 
—— 


CO CU 


PHMIRACA DE LA EDO (ATA 

WIDE MUMERO | 

Phi DE LA CINTA : 

A AAA Aaa A 
srl DEL MAFÉ AE ES 

Pinttikd CSRTUCHO A E E 

Pillo FICHERO ES 

Lor a 15 LISEE ¿TO KE"Yrte= 

pedi LATALOGO DE CORRIENTES PARA CASTUcHO MUELIO 


la pruncipal modificación que se ha añadido al programa «Ca- 
tálogo de corrientes» original está entre las lineas 1840 y 1860. Estas 
lines, comprueban el tipo de los canales del Interface: si son correc- 
losose imprimen las posiciones de memoria de las rutinas de entrada 
y valida der la ROM adicional. Estas líneas adicionales también son 
toto 


empleadas por las posteriores ampliaciones del programa referentes al 
RS 232 y al enlace a red. Las líneas 2500 a 2720 imprimen di- 
versos detalles referentes a la corriente. El «mapa» de la cinta se 
imprime llevando los datos de la memoria a la pantalla mediante 
POKEs (líneas 2530-2575). El espacio libre se calcula contando el 
número de barras en blanco del «mapa» que aparece en la pan- 
talla (2670-2710). 


Rutinas de clasificación para juegos 


Como aplicación que demuestre el uso de los ficheros de datos 
aquí van una serie de rutinas que pueden servir para elaborar una ta- 
bla de puntuaciones para un juego, tabla que se guardará en- un 
fichero. En el programa hay dos subrutinas. La primera —que empie- 
za en la línea 9000— (debe ejecutarse antes de empezar el juego) re- 
llena la tabla y la segunda —iniciada en la línea 9100— actualiza 
la tabla cuando se consigue una puntuación superior a la más alta 
registrada con anterioridad. 


REM AXEL 

REM * RUTINA CLASIFICACIOÓN * 

REM EREXLELELAEEEIE AAA 

REM LECTURA DATUS 

LET ne=5: DIM <etmess DIM <% 
ms ,10)2 

+010 CLOSE $4: OFEN $9;"m"31:;“PU 

NTUACION MAxIMA " 

0420 FOR ¡=1 TO n<s 

030 INPUT H+9;Ss%i253 LIME <*+C1> 
7090 NEXT ¡5 CLOSE +9 

050 G0 TO 2200 

073 

20797 REM CREAR DE NUEVO El FICHE 

RA SI ES PUNTUACION MAXIMA 

2100 LET ne=%:1 IF scene? THEN 
EETURN 

110 PRINT * FLASH 13" NUEVA PUN 

TUACION MAXIMA!!! ! Ñ 

1:20 INPUT "ENTRA TU MOMERE ¿Max 
¿10 LETRAS)"; LIME as 


1 
LOSA 


NS A 


oO y” Ll 
a 


UN 
DE 


“O 10 0 0070 
SY] 


e 
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130 FOR ¡=1 TO ns 

190 IF <sc<=esti)> THEN NEXT i 
7150 ERASE "m";15; "PUNTUACION MAX 
IMA" 

2155 OPEN $H9:;"m"51;"PUNTUACION M 
AXIMA " 

140 FOR j=1 TO n< 

F170 1F y<i THEN  PRINT $ad¡stcj 
eb j) 

7130 IF ¿=i THEN  FRINT $4;=c" a 
2190 IF > THEN  PRINT $9;Sx< ¡4-1 
»“eBlj-1) 

NEXT 

CLOSE $49 

RETURN 

REM IMPRIMIR TAELA PUNTUACI 


CELS 

PRINT— FLASH 1; INK 7; FAFE 
TAB 43" PUNTUACIONES MaxIlmáas" 
E 

FOR ¡=1 TO ne 

PRINT— PAFER ¡; INK 7, ,TAB 
" "ps BL ¡TAB Z2ljst id... 
NEXT 1 

RETUEN 


tn Z Nini rpAN 


0 00 A E (0 ri Da Oman On 


Ú 


a Y 
00 Cl Cs O CO CO CO 


CS UC UN O CS UN a E E OS 


YO OS Y LU ca 


7729 REM CREAR NUEVO FICHERO 
sm" 313" PUNTUACION M 


mm “Y 
Zo 
TD 

z DO 
3 
m 
e 
E 


¡=1 TO S 
>4 PRINT $90" " 
76 NEXT ¡i: CLOSE $43 


A 


Pa “YO 


Q 00 Xx 
5U 
MÍ 
mn 
a 
A 


La tabla se almacena en forma de diez elementos ordenados en 
parejas: primera puntuación, primer nombre, segunda puntuación, 
segundo nombre, etc. Las líneas 9900 y posteriores sólo deben eje- 
cutarse una vez puesto que rellenan el fichero con datos nulos. Para 
rellenar la tabla se emplean las líneas 9000 —9050. La línea 9000 
fija el número de elementos de la tabla, ns, e inicializa los vec- 
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tores s() para cada puntuación y s$() para los nombres. El fichero 
se cierra. Luego, se imprime la tabla a partir de la línea 9300. 
Una vez terminado el juego, se guarda la puntuación en la variable 
sc y se ejecuta la instrucción GOSUB 9100. La línea 9100 comprue- 
ba si la puntuación es más pequeña que la menor existente en la 
tabla. Si lo es, se ejecuta RETURN, puesto que el jugador no se 
ha clasificado entre los mejores. En caso de que haya conseguido 
clasificarse, debe entrar su nombre (línea 9120). Después se calcula 
qué posición le corresponde ocupar en la tabla (9130-9140). La 
variable i guarda esa posición. La línea 9150 borra el fichero an- 
terior y la 9155 crea un nuevo fichero de escritura. El bucle que 
va de las líneas 9160 a 9200 escribe en el fichero la nueva tabla 
insertando el nuevo nombre y la nueva puntuación y desplazando una 
posición hacia abajo cualquier información que ya estuviera allí. 
Finalmente la línea 9210 cierra el fichero. 
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Capítulo 4 


EL «UNIFILE» (un programa completo para 
gestionar una base de datos con los microdrives) 


El programa contenido en este Capítulo es, en realidad, un pro- 
grama completo para la gestión de una base de datos y utiliza los 
Microdrives. Opcionalmente, puede trabajar con una impresora (del 
tipo ZX o RS 232). El «Unifile» es un programa basado en buena 
parte en el programa «Unifile 1» desarrollado por David Lawrence 
y recogido en su libro «The Working Spectrum». Se ha contado 


con su autorización para ampliarlo aquí. 
El programa está destinado a usuarios de Spectrum con 48 K 


de memoria. De todas formas, se dan detalles para desarrollar 
una versión reducida utilizable en versiones de 16 K. No se ha renu- 
merado el programa: las líneas extraídas del programa original son 
idénticas. 


Listado del «Unifile» 


1000 PAPER 7: CLS : BORDER 7: IN 

K 6: PAPER 0: PRINT PAPER 2;" 
UNIFILE "¡FS$;TAB 313" " 

1005 LET ali=0 

1010 PRINT “"FUNCIONES DISPONIBL 


ES 

1020 PRINT *" O0CREAR UN NUE 
VO FICHERO" 

1030 PRINT “" Z23ENTRAR INFOR 
MACION" 

10940 PRINT *” 3) EUNSQUEDASPRE 


SENTACI ON. MODIFICACION 


60 


1050 PRINT “" 4)STOP" 
1055 PRINT /" 5) SAVE/LOAD/CA 

ls 

1040 PRINT ““"ENTRAR LA QUE SE D 

ESEE EMPLEAR." 

1070 PAUSE 0: LET 2é=INKEYS 

1080 CLS 

1090 1F 2$="1" THEN 60 SUB 1210 
1100 1F 2$="2" THEN 60 SUB 1440 
1110 1F 2%="2" THEN GO SUB 2180 
1120 IF 2$="4" THEN GO SUB 1150 
1125 1F 24="5" THEN GO TO 3500 
1130 CLS 

1140 GO TO 1000 

1150 PRINT AT 10,2; INK 7; PAPER 
2;"SISTEMA DE FICHEROS CERRADO" 
1160 BEEP 2,2 

1180 INPUT "HA INTRODUCIDO NUEVA 


INFORMACION QUE DESEE GUARDAR S 


AVE>)(S/N3"308: IF QA$="N" THEN $ 
TOP 
1190 SAVE "UNIFILE": PRINT *“"REBE 


OBINE LÁ CINTA Y PULSE CUÁL- QUI 


ER TECLA PARA VERIFICAR": 
VERIFY 


DO: 
1200 
1210 


1220 
1230 
TURÁA 
12339 
1240 


PAUSE 

"UNIFILE": STOP 

REM ARALAR 

REM ESTRUCTURA DE LA 
ENTRADÁ 

REM AXELELALAECLLEL AAA ANNA 

PRINT — PAPER 2;" ESTRLIC 

DEL FICHERO E 

GO SUB 4200 

PRINT “"CUANTOS ELEMENTOS P 


OR ENTRADA? " 


1250 
1260 
1270 
1250 


INPUT Xx 
CLS 
DIM A$(X,20) 


PRINT — PAPER 23" MOMBRES 


DE LOS ELEMENTOS Ñ 


1290 
1300 


FOR I=1 TO X 
PRINT "ELEMENTO "313":"; 
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1310 
1320 
1330 
1340 
1350 
1360 


GO SUB 2780 
PRINT Q$(2 TOD ) 
LET A$(1>=0$ 


NEXT 1 


DIM B$(¿28000) 
LET B$(1 TO 4=CHR$ 2+CHR$ 


O+CHR$ 2+CHR$ 255 


1370 


DEF FN Aci=2S54xCODE YS$i2x*S- 


1)+CODE Y$(2%*5) 


13890 DEF FN ASCt=B$iC TO C+TCODE 
B$(C0)3-1> 

1390 LET P=5 

1900 LET Yé=CHR$ 0+CHR$ 1+CHR$ 0 
+CHR$ 3 

1410 LET N=2 

1420 RETURN 

1430 REM RXXEIXELXIELE LAA 
1440 REM ENTRADA NORMAL € INPUT) 
1450 REM RARE 
1460 LET Rs$="" 

1470 PRINT PAPER 2;" EN 

TRADAS B 

1480 PRINT *" INSTRUCCIONES DISPO 

NIBLES:" 

14920 PRINT “*">ENTRAR EL ELEMENTO 
ESPECIFICADO" “">5""222"" PARA Á 
CABAR" 

1500 PRINT. "Lex 
HARRIS 

1510 PRINT "TAMANO DEL FICHERO:" 


¡P-13"/"5LEN B$ 


1520 
1330 
1540 
1580 
1590 
TURN 
1600 
1610 
1620 
1630 


FOR I=1 TO X 

GO SUB 2810 

GO SUB 2780 

PRINT Gs(2 TO ) 

IF 0UsSC2 TO >="Z22" THEN RE 


LET R$é=R$+0Q$ 
NEXT I 

CLS 

GO SUB 1660 


1440 GO TO 1940 

1650 REM HH 33d dee IA E IE E 

1480 REM COLOCAR LOS DATOS EN EL 
FICHERO 

1470 REM RARE LLLEE CELIA 

1580 IF P+LEN R$-1<LEN B$ THEN 


GO TO 1730 

15920 PRINT AT 14,10;"FICHERO LLE 
NO ”n 

1700 PRINT **" PULSAR CUALQUIER 
TECLA PARÁ CONTINUAR" 


1710 PAUSE 0 
1720 RETURN 
1730 LET POTENCIAÁSINT <LN <N-1)3/ 


1740 LET S=2PPOTENCIA 

1750 LET Té$=rR$(2 TO CODE R$c15> 
1760 FOR K=POTENCIA-1 TO O STEP -1 
1770 LET C=FN AC) 

1780 LET Us$=FN AsS(>(2 TO > 

1770 LET S=S5S+C2fK>x%*(CTB>UB>)-C(27PK) 
*(T$LUS) 

1810 IF S>N-1 THEN LET S=N-1 
1820 1F S<2 THEN  LET S=2 

1330 NEXT K 

1840 LET C=FN Ac) 

18250 LET U$=FN A$S(2(2 TO > 

1360 IF T$<U$ THEN LET S=S-1 
1870 LET ES(P TO P+LEN R$-12=R$ 
1880 LET N=N+ 1 

1890 LET Y$=Y$(1 TO 2%*S>+CHR$ IN 
T CP/2I6)+CHR$ (P-Z2I6* INT <P/23é 
)J)+YéC2CS+17-1 TO > 

1900 LET P=P+LEN R$ 

1710 RETURN 

1920 REM ILERELECCECENALIAEAAI 
1230 REM CAMBIAR ENTRADA 

17990 REM AEREAS 
19350 LET S=S-1 

1960 LET C=FN Ac) 

1770 LET R$="" 


63 


64 


1280 PRINT "ENTRADA ";S5-13%:-" 
19220 FOR I=i TO X 

2000 GO SUB 2810 

2010 GO SUB 2830 

2020 PRINT AT 17,0; PAPER 2;" 

MODIFICAR A 

2030 PRINT "INSTRUCCIONES DISPO 
IBLES:" 

2040 PRINT ">""ENTER"" NO CÁMEIA 
EL ELEMENTO" “">""222"" BORRÁ TO 

TALMENTE LA ENTRADA" *">ENTRAR NU 
EVO ELEMENTO" 

2050 GO SUB 2780 | 

2060 IF LEN QO$=1 THEN  LET Rs$=Fs$ 
+B$(C TO C+CODE B$tC>3-1> 

2070 LET C=C+CODE Bs+$rC> 


2080 CLS 

2090 IF LEN QG$=1 THEN GO TO 212 
0 

2100 IF ($2 TO >="222" THEN GO 
TO 2130 

2110 LET R$=R$+($ 

2120 NEXT 1 


2130 60 SUB 3130 

2140 IF Qé(2 TO >="222" THEN RE 
TURN 

2150 GO SUB 1460 

2160 RETURN 

2170 REM AXIAL IRA 
2180 REM BUSQUEDA 

2190 REM ARALAR CELA 
2200 LET S=2 

2205 LET ST=2 

2210 PRINT PAPER 2;" E 
USQUEDA Ñ 

2220 PRINT **" INSTRUCCIONES DISP 
ONIBLES:" 

2230 PRINT ">ENTRAR ELEMENTO PAR 
A BUSQUEDA NORMAL" *" >FRECEDERL 
u CON *""S55"" PARA" -“" BUSGUEDA E 
SPECIAL" "">0 CON ""III"" PARA EU 


SCAR"*" SEGUN PRIMER CARÁCTER DE 


LA ENTRADA" “ ">ENTER"" PARA 
EL PRIMER ELEMENTO DEL FICHERO" 
2235 PRINT ">""PPP"" PARA "¿"IMP 


RESORA " AND ST=2: "PANTALLA" AND 
ST=3;" SALIDA" 

2290 PRINT "RRA 
ERA 

2250 PRINT ““"ENTRAR EL ELEMENTO 
A BUSCAR :" 

2260 GO SUB 27806 

2265 IF QG$6=CHR$ 49+"PPP" THEN LE 

TY ST=5-ST: CELS : G0 TO 2210 

2270 PRINT GU$(2 TO > 

2280 LET S$=Q$ 

2290 IF LEN S$=1 THEN 60 TO 251 


2300 LET C=FN AC) 
2310 IF LEN S$<5 THEN GU TU 24 


30 
2320 1F S$(2 TO 43<2>"111" THEN 
GO TO 230 


2330 FOR I=S TON 
2340 LET S=1 

2350 LET C=FN At> 

2360 IF B$(C+13=5$5) THEN GO T 
o 2510 

2370 NEXT 1 

2380 RETURN 

2390 IF S$12 TO 42<>"555" THEN 
GO TO 2930 

2400 GO SUB 2920 

2910 IF C4=1 THEN 60 TO 2510 
2420 RETURN 

2430 FOR I=1 TO x 

2490 IF FN A$(c>=5% THEN GO TO 2 
510 

2450 IF FN Asto=CHAR% 2+C0HRS$ 255 
THEN RETURN 

2460 LET C=C+CODE ESC) 

2470 NEXT 1 
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LET S=5S+1 
LET C=FN At 
60 TO 2430 
LET C=FN AC 


LET C4=(0 
IF FN A$SOO=CHRS$S Z2+CHARS 2 
RETURN 
CLS 
c1F STX<>2 THEN GO TC. 4360 
PRINT "ENTRADA "5-1: :-" 


GO SUB 2850 
LET S=S+1 

PRINT AT 16,0; PAPER 23" 
BUSQUEDA " 


2320 PRINT "INSTRUCCIONES DISPON 
IBLES:" 
2600 PRINT ">""ENTER"" PARA PRES 


ENTÁR SI-. 


GUIENTE ELEMENTO" 


tr" ZZ2Z2""PARA ACABAR LA FUNCION 
A > 1 ARA “y PARA MDI FI CAR" rs $ > ” ha 
CCC" " PARA CONTINUAR LA BUSGCUEDA 
” 


2610 


INPUT Ps 
CLS 

IF P$="CCC" THEN GO0.TO 230 
IF P$="" THEN GO TO 2510 
IF P$<>"AAA" THEN GO TO 27 
LET C=FN AC> 

CLs 

GO SUB 1930 

IF P$="222" THEN RETURN 

IF P$="AAA" THEN RETURN 
CL5S 

GO TO 2260 


REM AXELFEXIELERLEXI E EEK 

REM RUTINAS ENCARGADAS DE 
LAS FUNCIUNMES 

REM AFXEXIAXELEAL ELE RA ARK 

INPUT qs$ 


q 
Na” 
. 


40 Cco 00 CO 0) Ca CO CO 00 
ES NS A E A 


NQ0oO0OOCOÓCaoOoOOoOOoOaoaooao 0 


0 y 
Qca a 


“Q 


SIA UA 
' DÍ 
OGG o 


O O O O NN A AN A A 
mm E 
a 


Ll 
Q 
0) 
a 


LET U$=CHR$ (LEN QUé$+1+C5$ 
RETURN 
PRINT AF11,z2 TO CUDE AéLl1,1 


RÉTUFN 
FPRINT FN Asro:i2 TO > 
RETLUEN 


FOR I=1 TO x 

GO SUE 2810 

GO SUE 280 

LET E=C+CODE EF) 

NEXT 1 

RETURN 

REM FEF ARIAS 
REM BLUSCUEDA ESFECIAL 


REM EXE LELELEAE SEE 


LET C4=( 

FOR H=S TO N-1 
LET S= 

LET E=FN Ac 
LET C1=C 


FOR I=1 TU x 

LET C1=C1+CODE EsS:C1> 

MEXT 1 

FOR I=E+1 TO C1-LEN 5$+5 

IF E$2J1 TO J+-LEN 2-20 <o:=S 
) THEN GO TO 2040 

LET C4=1 

RETURN 

NEXT Y 

NEXT H 

LET C4=0 

RETURN 

REM EEE AE AAA 
REM FICHERO TELESCOFICO 

REM EXFERIAIAAEEAEECAAAAAEAE 
LET EC=FN At) 

LET SHIFT=1000 

LET tíi=t 

LET CS3=C 

FOR I=1 TO X 
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3180 


LET C1=Ci+CUDE ESICI), 


3120 NEXT 1 


3200 
32106 
HIFT 
3220 


LET C2=C1-C 
FOR I=C1 TO LEN B$-1 STEP $ 


IF LEN 6E$-1:+1<38HIFT THEN L 


ET SHIFT=LEN E*s-1+1 


3230 
3240 
3256 


LET 3*t=B%*(¿1 TO 1+SHIFT-1>5 
LET B*«C TO C+SHIFT-13=S%$ 
LET C=C+SHIFT 


3260 NEXT 1 


3276 


LET Yé=Y$(1 TO Ze S-1))+ 130 


2X*(St+ti-1 TO > 


3280 
3298 
3300 
3310 
3320 
3330 
DÓ ) 

3340 


FOR I=i TO N-1 
LET S=I 

LET C=FN Ar? 
IF EC<=C3 THEN 
LET C=C-C2 
LET Y$(2*1-1=CHR$ INT (C/2 


G0 TO <3350 


LET YS$i2*I13=CHRES (C0-256* INT 


(0/26) ) 


3550 
3360 
3370 
3380 
3396 


$cl>: 


35300 
3510 


MEXT 1 

LET P=P-C2 

LET N=N-1 

RETURN 

FOR I=1 TO 20: FRINT CODE Y 
NEXT 1 

CELS 

PRINT "UNIFILE - OPERAÁCIONE 


S CON EL MI CRUDRIVE" 


35320 


E> ” e 


35330 


PRINT “" 1) ALMACENAR «SA 
INVERSE 13F3 
PRINT “"  Z2ICARGAR (LOAD) N 


UEVOS DATOS" 


3590 PRINT ** 3) CATALOGO ¿LATA 
DE UN CARTUCHO" 
3395 PRINT ** 5) RETORNO ¿RETLR 


MN) AL MENU 


3550 
336 


PRINCIFAL" 
PAUSE 0: LET ¿*=INKEYE+ 
IF ¿é="1" THEN GO SUBE <500 


3570 
3580 
23520 
3600 
3670 
364286 
3590 
2700 


IF 2$="2" THEN 0 TG =<8S00 
IF 2$="23" THEN 60 SUBE 37006 
IF 2$="3" THEN 60 TO 1006 
GO TO 3500 

REM ARALAR LEE AREA 
REM RUTINA DE CATALOGO 

REM AXEL LEAR 
CLS 2 PRINT "CATALOGO DEL € 


ARTUCHO:" 


3710 


CARTUCHO”? 


D 
3720 
3730 


INPUT "NUMERO DE UNIDAD DE 
¿O PARÁ FIMALIZAR>"; 


IF D=0 OR D>S THEN 
CAT D 


RETURH 


3740 PRINT H0¡AT 0,0; FLASH 1;"P 
ULSAR CUALQUIER TECLA PARA S 
EGUIR"; 


3750 
3760 
2770 
3780 
370 
3800 


PAUSE 

RETURN 

REM EEREXELEXLIEELELL ELA 

REM RUTINA DE CARGÁ (LUAD), 

REM AXIAL ELEALCLLE ERA 

PRINT ** FLASH 1¡"ATENCION: 


LA CARGA DE NUEVOS DÁ — TUS, BORR 
A LOS ANTERIORES" 

3805 PRINT *"PULSAR € PARA CONT] 
NUAR, O CUAL QUIER CTRA TECLA FA 
RA TERMINAR." 


3610 


PAUSE 6: LET ¿%=INKEYS: IF 


2ZBC>"C" AND 2$<>"c" THEN 60 TO 


3500 
33820 
3830 
83? 

3590 
330 

3850 
3860 
3870 
3880 


3890 


Gu SUB 4200 
INFUT "NUMERO DE UMIDAD £1— 


D 
9 
IF D<O OR D3S THEM. 60 TO Y 


LOAD *"M" ;D;5FS+CHRA 128 

GO TO 1000 . 

REM XXIAIAEELIEAEAEEAEAAIAAEII 

REM RUTINA DE ALMACENAMIEN 
TO (¿SAVE > 

REM XXXII ELIEAAAELEAAAAA 
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70 


3700 


"3FS$; 


2905 
3510 
D 

37 2U 
3930 
39740 
3950 
R EL 


O 


76U 


70 
60 


PRINT 
a EL 
GOA SUB 4200 

INPUT "NUMERO DE UMIDAD? "; 


2 *"CNOMERE EXISTEMTE= 


IF DO OR DS THEN 
CLS 

PRINT " UMIFILE - "¡FR 
PRINT AT 15,0; "QUIERE EoORRA 
FICHERO ";3F%* CE LA UNIDAD 
dE e No? 


a LINE el 


RETURN 


no. .oORros. 


IF 23019 ED ¿82 2” THEN 
TO 4000 

ERASE "M";D¡FS+CHERA 125 
“"ETCHERO EORRADO" 
SANE "MH" ¡D¡FR+CEARE 123 LIN 


E 1000 


3010 


SE ES 


3020 


PRINT "DATOS ALMACENADOS —- 
TAN WERIFICANDO" 
VERLEFY *"M <DiFS+CARS LZ2s: L 


IME 1000 


9030 
4170 
31830 


170 
49200 


RETURN 

RET] EEE AAA 

REM ENTRADA DEL NOMBRE DEL 
FICHERC 

REI] EREFFEAEEEAEAAEAAEAAE 

INPUT "NUOMERE DEL FICHERO”? 


"5 LINE Fé 


4210 IF LEN F*<10 ANC LEN FR:0 T 
HEN RETURN 

4220 IMPUT "LONGITUD Máx. Fs "; 
LINE F3+ 

4230 60 TO 4210 

4270 REM XXXIX 

42806 REM SALIDA POR IMPRESORA 


270 
39300 
4310 


REM IXLLEEFLECAEEAAAAEEA 
LPRINF "ENTRADA *"S=13t3=" 
FOR 1=1 TO X 


4320 LPRINT A$:1,2 TO CODE fAéx1, 
LI 

43230 LPRINT FN Asi3i2 TO > 

49340 LET C=C+CODE ERIC 

4350 NEXT 1 

393604 0 TO 2570 


Una vez se haya introducido el programa, hay que incorporar las 
siguientes instrucciones: 


CLEAR 
LET Fe="" 


y hay que guardar el programa (mediante SAVE) con LINE 1000. 
Para iniciar su ejecución hágase GO TO 1. (Nunca ha de emplear- 
se la instrucción RUN: provoca el borrado de los datos). 

Cada fichero de datos puede contener hasta 28.000 carac- 
teres organizados en elementos definidos en el momento de inicia- 
lizar el fichero. Por ejemplo, éste podría ser una agenda con tres 
elementos por entrada: nombre, dirección y número de teléfono. 

La opción 1 permite crear un nuevo fichero y pide al usuario 
que le asigne un nombre. 

La opción 2 permite añadir información al fichero. 

La opción 3 es la más útil. Permite realizar una búsqueda sobre 
todo el fichero y, luego, escribe en la pantalla las entradas apro- 
pladas O bien las imprime en la impresora. La opción de «bús- 
queda especial» intentará encontrar un elemento dentro del fichero 
que tenga alguna de sus tres partes iguales a la cadena que se 
especifique. No se trata de una operación excesivamente rápida. Por 
ejemplo, si se entra SSS-MADRID y se trabaja sobre el fichero de 
direcciones, se imprimirá el nombre de todas aquellas personas de lu 
agenda que vivan en Madrid o cuyo apellido sea Madrid. Una ope 
ración más rápida es la búsqueda normal que tan sólo inspecciona 
el primer carácter de cada entrada. 

La opción 4 permite que el programa y los datos se graben en 
cassette para disponer de copias de seguridad. 

La opción 5 permite almacenar los datos existentes en un mo 
mento dado o bien cargar otros nuevos o catalogar un cartucho. 
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Los ficheros se guardan en cartucho con un CHR$ 128 al final para 
poder distinguirlos de los ficheros normales de programas. Este 
carácter adicional no queda recogido en el CATálogo ya que se im- 
prime como un espacio. 

No voy a explicar el funcionamiento del programa: David Lawren- 
ce lo hace muy bien en su libro. Explicaré, en cambio, la subru- 
tina de la impresora con el fin de que los usuarios puedan modi- 
ficarla para que se adapte mejor a las especificaciones de sus fiche- 
ros. La rutina va de las líneas 4300 a la 4350. S-1 es la posición 
que ocupa la entrada dentro del fichero y X es el número de ele- 
mentos por entrada. La línea 4320 imprime el título de cada entrada 
y la 4330 los datos en sí. La línea 4340 incrementa un puntero. 
Si, por ejemplo, se hubiera creado un fichero que sirviera como 
agenda de direcciones tal y como se ha indicado anteriormente y se 
quisiera imprimir las entradas en forma de etiqueta de dirección para 
correspondencia, podría hacerse lo siguiente: 


4300 LPRINT "MUM. REF.";5-1 
4310 LPRINT FN Asc0c2 TO >: REM 
EL NOMBRE 


9320 LET C=C+CODE ERXCC) 
320 LPRINT FN ASrot2 TO 2: REM 
LA DIRECCIÓN 
4340 LPRINT 
3350 LET C=C+CODE EXRCC) 
9350 LPRINT "TELEF. :" ¡FN ABCICZ 
TO 2: REM EL NUMERO 
9370 LET C=C+EODE ERIC) 
4380 G0 TO 230 


Nuevas posibilidades 


Se pueden añadir otras posibilidades a las que ya se ofrecen. 
Una de ellas podría ser la de disponer de una operación CAT que 
sólo catalogara los programas del «Unifile». Para ello habría que re- 
currir a la rutina «Corriente 14-z$» y examinar el contenido de Z$ 
para ver si aparece algún CHR$ 128. Otra mejora podría ser la de 
traducir las líneas 3130-3380 a código máquina con lo cual el bo- 
rado y la modificación de elementos se aceleraría notablemente. 
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Versión para 16 K 


Se puede utilizar una versión restringida del programa «Unifile» 
en sistemas con 16 K de memoria. Hay que introducir las siguientes 
modificaciones: 

Se deben borrar todas las instrucciones REM, las líneas 3540, 3580 
y 3700-3760. 

Hay que cambiar las líneas: 


1350 DIM ESC1000> 
3140 LET SHIFT=100 
3375 LET S$="" 
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Capítulo 5 
PROTECCION DE PROGRAMAS 


Cuando uno ha escrito un buen softward y quiere venderlo no 
tiene ningún interés en que cualquiera pueda copiar su obra maestra 
y repartirla entre sus amigos. Aunque no hay programa para el 
que se pueda garantizar una seguridad del 100 % contra las copias 
piratas, existen muchas técnicas sencillas que permiten dificultar el 
proceso de copia en gran manera. Explicaremos aquí un par de posi- 
bilidades ya contenidas en el propio ordenador y otras técnicas 
más astutas. Es necesario subrayar que no hay métodos imbati- 
bles. Con tiempo y conocimientos suficientes un determinado pro- 
gramador en lenguaje máquina puede ser capaz de vencer las ba- 
rreras de protección puestas para dificultar el acceso a un programa. 


Auto-ejecución 


La forma más sencilla de dificultar la copia de programas es hacer 
que sean capaces por sí mismos de iniciar su ejecución. Para ello 
se recurre a la función SAVE*... LINE. No puede ser fundida 
(MERGE). Por tanto, cuando se carga, provoca el auto-inicio. Si a 
un programa se le da el nombre de «run» (en minúsculas) entonces, 
si después de conectar el sistema o hacer NEW se teclea RUN, el 
programa se cargará y automáticamente empezará a ejecutarse (si 
se guardó mediante SAVE y LINE). 

También resulta útil hacer que los nombres de los programas em- 
piecen por el carácter CHR$ 0. De esta forma no aparecerán en el 
CATálogo del cartucho. Si se hace que el programa «run» cargue 
el programa «invisible», el posible pirata de software será incapaz de 
saber siquiera el nombre del programa principal. Otro sistema con- 
siste en hacer que el nombre de un programa esté compuesto 
únicamente por espacios en blanco: la mayoría de los usuarios ni 
se darán cuenta de que está en el catálogo. 
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POKEs «fatales» 


Algo que hay que impedir a toda costa es que el usuario pueda 
entrar en el programa una vez está en ejecución o mientras se está 
realizando un LOAD. En el caso explicado anteriormente esto último 
le permitiría ver el nombre del fichero «invisible» mediante el examen 
de su listado. Una manera de impedir esto que, aunque no es muy 
elegante, funciona perfectamente, consiste en hacer que la primera 
línea sea: 


POKE 23657,0 


Lo que hace esta línea es decirle al Spectrum que no hay más 
líneas en la parte inferior de la pantalla. En caso de que ocurra 
algún error (como el de Break into program que se produciría 
si alguien entrara en el programa) hará que todo el sistema quede 
«colgado» al no haber espacio suficiente para escribir el mensaje de 
error. El usuario tendrá que desconectar el ordenador para poner en 
marcha de nuevo el sistema. De esta forma se impide que examine 
o copie el listado del programa. 

Hay que ir con tiento al emplear este POKE particular pues una 
instrucción CLS o cualquier intento de escribir en las dos líneas infe- 
riores (por ejemplo con INPUT) resultará fatal para el ordenador. El 
POKE es únicamente útil cuando se emplean programas en código 
máquina y en especial mientras dura su proceso de carga. Para 
programas en BASIC resulta una solución demasiado limitada. 
Un método alternativo es el que utiliza la línea siguiente: 


LET p=FEEK 2351 3+2D6*PEEK 232614: 
FORE py 4s<PORE cp +10 


que será fatal para el sistema en cuanto ocurra un error pero que, 
en cambio, permite escribir en la parte inferior de la pantalla. 


On error GOTO 


Muchos ordenadores tienen una función «On error goto» que pro- 
voca un salto a una determinada línea cuando se produce un error. 
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Desgraciadamente, el Spectrum no dispone de ella. La siguiente ru- 
tina en código máquina realiza las mismas acciones que esa función: 


Listado de «On error goto» 
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JN UNS 
Dd yw 


4 REM AXEXAELAEAAENLALANA 
9 RemM * 
6 REM 1030 de ae e E IE E RIA 


ON ERROR GUTO * 


linea=SÁLTO DE ERROR 
REM RECOMENDADO: 44730.- 32010 


RESTORE 300: 
=err TO err+170 


FOR 
READ 


IF ac256 THEN 


NEXT 


IF cx>17937 THEN 
ROR EN SUMA DE CONTROL": 


LET c=U 


a: LET c=c+ta 

POKE ¡,a 
| 

PRIMT 
STOP 


"ER 


8350 POKE err+142,1linea-236* INT 
1inea/256) 


iD” 
ea2 0 


2875 
2880 
ca35 


8890: 


2895 
8900 
3905 
0 
2910 
17 
8915 


3,203 


3720 


85,23 


2925 
211 

3930 
, 237 
2935 


POKE err+150,INT 


¿linear 2oé 


RETURN 


RANDOMIZE USR err 


POKE 


RETURN 


22724,0: 


RAÁNDOMIZE USR err 


POKE 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 


DATA 


22734,4: RETURN 
33,17,0,9,225,42,61,92 
115,25,119,207,47,1,0, 


82,32 
2940 DATA 20,253,203,124,70,32,1 


8945 DATA 7,40,10,62,100,50,211, 

92 

8950 DATA 42,62,215,24,21,60,71, 

254 

3955 DATA 10,54,2,1728,7,205,227, 

21 

290 DATA. 42,22,215,120,17,145,1 

9,205 

8965 DATA 10,12,175,17,54,21,205 
10 

3 

8970 DATA 12,227,75,64?,72,2237,67 
,201 

8975 DATA 92,205,27,24,62,58,215 
,253 


87980 DATA 72,13,6,0,205, 
8985 DATA 59,92,202,174, 
110,40 

3990 DATA 252,33,66,92,17,240,27 
0,115 

8994 DATA 35,114,35,594,1,252,54, 
A 

3995 DATA 255,253,54,124,0,205,1 
10,13 

2996 DATA 175,125,27 


La rutina tiene una longitud de 171 bytes y es totalmente inde- 
pendiente de la posición de memoria en que se cargue. Ántes de la 
mstrucción GO SUB 8800 que inicia la ejecución, hay que dar a err 
ol valor de la posición de memoria requerida y a line el valor de 
laa línea de error. Con operaciones normales (aquellas que no hagan 
ruferencia al Interface) se hace GO SUB 8800 para activar la rutina. 
(cuando tiene lugar un error se imprime el mensaje correspondiente 
en el lugar normal. Entonces se produce una pausa en espera de 
«que se pulse una tecla. Cuando se ha hecho esto, se borra el men- 
saje y se salta a la línea correspondiente. Se produce una desactiva- 
«¡ón cuando se origina un error. El número de la línea donde se 
hi producido el error puede conocerse haciendo: 
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PEEK 23fO00+206*FEEK 2374 
y el número del error haciendo: 
PEEK 23763 


Para poner en marcha la rutina con las operaciones que hagan 
referencia al Interface se debe hacer GO SUB 8890. Téngase en cuen- 
ta que si se produce un error del Interface (por ejemplo, un 
error que no tiene mensaje de error) no aparecerá el debido men- 
saje de error sino que se imprimirá un signo de interrogación y 
habrá el valor 100 en la posición de memoria 23763. 


Después de cada operación relacionada con el Interface la rutina 
queda inhabilitada (es decir, no se permite que entre en ejecución) 
como resultado de su propio funcionamiento. 


Para inhabilitar la rutina hay que hacer: 


LET p=PEEK 223612+254x*PEEK 22614: 
FOKE p,2: POKE p+r1,17: POKE 237 


34,0 


Esta rutina no es incompatible con la rutina «On EOF GOTO» 
del Capítulo anterior. Para saber si se ha producido un error de 
fin de fichero basta con comprobar si en la posición 23763 hay 
el valor 7 (o, dicho con otras palabras, la operación PEEK 23763 
dará por resultado un 7). 


Cuando depure sus programas tenga en cuenta los bucles in- 
finitos. Si la línea de error fuera la 100 y tuviera esta. forma: 


1000 60 SUB 2280 


entonces es muy posible que no se pudiera salir nunca del pro- 
grama. Inclúyase siempre en los programas una opción que permita 
realizar el POKE necesario para conseguir la inhabilitación. 

Para incluir esa rutina en un programa comercial lo mejor es 
añadir la siguiente línea: 
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as59 POKE err+22,74: POKE err+24 
ja31 PORKE err+25,386 


Estos POKEs modifican la rutina de tal manera que no se cancele 
cuando haya un error. 

Si usted quiere insertar en un programa comercial esta rutina o 
cualquier otra rutina en código máquina recogida en este libro 
tendrá que obtener primero mi autorización puesto que las tengo 
registradas. 

Como hemos visto, con un poco de código máquina y unos 
cuantos POKEs se puede obtener una protección efectiva de cual- 
quier programa. Desgraciadamente la proposición inversa también es 
cierta: con algo de código máquina se puede «romper» un pro- 
grama deshaciendo su sistema de protección. Para vencer las barre- 
ras de protección es necesario que el programador sepa qué métodos 
de protección se han utilizado. Esto explica por qué resulta relati- 
vamente sencillo para un programador en código máquina obtener un 
catálogo de ficheros «invisibles» o fusionar programas que se ponen 
en marcha por sí mismos. Es un desgraciado efecto secundario de 
la extensa disponibilidad de detalles técnicos de los productos 
Sinclair. 
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Capítulo 6 


EMPLEO DEL INTERFAZ RS232 


Otra característica del Interface 1 es su capacidad para transmi- 
tir y recibir datos a través del RS232. El RS232 es (casi) una nor- 
ma universal para transmisión en serie. Hay una gran cantidad de 
periféricos y ordenadores que pueden comunicarse a través de este 
interfaz. El Spectrum emplea al RS232 principalmente para controlar 
las impresoras «serias» de cierta anchura para producir listados y 
salidas de programas. 

La velocidad a la que se envían o reciben datos se mide en 
baudios. Un baudio equivale aproximadamente a diez veces el número 
de bytes enviados en un segundo. Hay nueve niveles de transmi- 
sión normalizados que corresponden a las velocidades de 50, 110, 
300, 600, 1200, 2400, 4800, 9600 y 19200 baudios. El Spectrum pue- 
de trabajar con todos ellos. Los teletipos acostumbran a trabajar a 
velocidades bajas, de 110 ó 300 baudios. Los terminales de tubos de 
rayos catódicos (CRT) trabajan a una velocidad de 2400 baudios o más. 

De la misma manera que los diferentes dispositivos trabajan con 
distintas velocidades también lo hacen con formatos de datos dife- 
rentes. En el Spectrum el formato es único y fijo: 


— No hay bit de paridad. 
— Ocho bits de datos. 
— Un bit de parada (Stop bit) . 


Para emplear el RS232 en el Spectrum se utilizan dos identificadores 
de canales más: el «t» y el «b». Estas corrientes se diferencian en 
su funcionamiento por la forma en que tratan los caracteres indi- 
viduales. 
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El canal de texto «t» 


La utilización más idónea del canal «t» es el «control de impre- 
soras ya que efectúa ciertas operaciones con cada carácter. Tenien- 
do en cuenta el conjunto de caracteres del Apéndice A del manual 
del Spectrum, el canal «t» imprime junto con cada código de ca- 
rácter lo siguiente: 


0-12 (los códigos de control) se ignoran 
13  (newline) envía un retorno de carro (13) y luego avance de 
línea (11) 
14-31 — (códigos de control) se ignoran 
32-127 (códigos ASCII) se envían sin ninguna modificación 
128-164 (códigos gráficos) se envían como **?”' 
165—255 (palabras especiales) se descomponen en los caracteres 
individuales. 


La conversión de caracteres que tiene lugar resulta ideal para 
transmitir listados y los resultados de programas. Sin embargo, 
muchas impresoras utilizan los caracteres anteriores al 32 para con- 
seguir efectos especiales. Las impresoras Epson, por ejemplo, emplean 
el CHR$ 14 para imprimir textos ampliados. Sin embargo, ese carác- 
ter no se puede enviar por un canal «t». Además la función TAB 
(extremadamente útil) también es ignorada, lo que hace que sea 
más difícil obtener salidas de programa claras y ordenadas. La 
solución puede ser emplear el canal «b». 


El canal binario «b» 


El canal binario es particularmente idónep para comunicar con 
dispositivos que no sean impresoras ya que no realiza ninguna con- 
versión de caracteres. Cada carácter se transmite sin modificación 
alguna. Por tanto, este canal es ideal para enviar datos y progra- 
mas. También resulta apropiado para enviar códigos de control a una 
impresora (ya que estos códigos no se pueden transmitir a través del 
canal «t»). 

Antes de que el Spectrum pueda empezar a enviar o recibir da- 


81 


tos a través del RS232 tiene que conocer la velocidad en baudios del 
periférico con el que va a establecer la comunicación. Esto se con- 
sigue con la sentencia FORMAT «b» a la que debe seguir la velo- 
cidad en baudios. Por ejemplo, para una velocidad de 110 baudios hay 
que hacer: 


FORMST "b"z110 


También se podría hacer FORMAT “*t”; 110. Tendría el mismo efec- 
to. Si se escribe una velocidad distinta a las que reconoce el Spectrum 
no hay problema: no se produce ningún error. El Spectrum erri- 
pleará la velocidad siguiente (la superior más cercana a la velocidad 
que se haya indicado). Para conocer qué velocidad se está emplean- 
do se puede hacer: 


PRINT INT 2233000001 .PEER 2 
370 + ROGEPEEK ZIRE 


Trabajando a velocidades más altas se puede sufrir una pérdida de 
precisión cuantificable en algunos baudios. Si la velocidad no se es- 
pecifica, el sistema no lo advertirá y trabajará con velocidades raras 
o realizará transmisiones defectuosas. Inicialmente, la velocidad que 
se toma es la de 9600 baudios. 


Control de una impresora vía RS232 


Antes de conectar por primera vez una impresora a través del 
RS232 al Spectrum habría que adecuarla para que se ajustara al 
formato de datos que emplea el ordenador. Normalmente, esto 
se consigue cambiando algunos contactos en el interior de la im- 
presora. Sólo es necesario realizar esta operación una vez. Hay que 
ajustar la impresora a la velocidad más alta que permita (anótela para 
no olvidarla) y el formato de datos debe fijarse en: ningún bit de 
paridad, 8 bits de datos y uno de parada. Si la impresora ofrece la 
opción de avance de línea automático después del retorno de carro 
(en la jerga informática LF automático después de CR) hay que in- 
habilitarla puesto que el Spectrum es capaz de generar los «LF» ne- 
cesarios. 
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Una vez se han fijado todos estos parámetros, se puede pasar 
+ conectar la impresora mediante un cable adecuado al zócalo de 
tipo D de 9 patillas del Interface. 

Cuando se controla una impresora con interfaz del tipo RS232 re- 
sulta aconsejable tener los canales «t» y «b» abiertos simultánea- 
mente (el primero para texto y listados y el segundo para códigos de 
control). Es conveniente dedicar la corriente 3 a los canales «t» de la 
impresora para poder emplear las instrucciones LLIST y LPRINT de 
programas ya existentes, por ejemplo: 


10 FORMAT "t" 531200:REM VELOCIDAD 
EN BAUDICS 

“O OPEN $23"t" REM TEXTO EN LA € 
OURRIENTE 3 

20 OPEN H15;3 "5" REM BINARIO EN L 

A CORRIENTE 15 

30 LLIST ¡REM LISTADOS EN EL CÁN 

SL “ES 

50 LPRINT “TAMANO NORMAL” 

¿£b PRINT R1S5;CHR* 149%$3; “ANCHURA 
DUBLE” 

FO CLOSE $2: CLOSE H15 


En este ejemplo, la corriente 15 se utiliza como un fichero «b» para 
transmisión de códigos de control y la corriente 3 trabaja como 
canal «t» para textos y listados. 

Cuando se transmite a través del RS232, el borde de la pantalla 
toma el color negro si el dispositivo que recibe la información (en 
este caso la impresora) está «ocupado» y, por tanto, es incapaz de 
aceptar los datos que se le están enviando. Para enviarle los datos, 
el Spectrum esperará a que el dispositivo deje de estar ocupado o 
bien a que se pulse BREAK. Cuando cualquier corriente relacionada 
con el RS232 está cerrada, se envía un carácter 13 para vacíar las 
memorias intermedias («buffers») correspondientes a la o las impre- 
soras y otros dispositivos. El carácter 13 no se envía cuando se em- 
plea el comando CLEAR Y. 

No es posible tener conectado al mismo tiempo más de un dis- 
positivo que emplee el RS232 aunque se pueden tener varias corrien- 
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tes conectadas al mismo canal. Tampoco es posible tener diferentes 
velocidades en canales o corrientes distintas. 

El principal problema que se encuentra al controlar impresoras a 
través del RS232 es la falta del comando TAB. La siguiente rutina 
en código máquina abre la corriente 3 como un canal «t» pero con 
una ligera modificación. La rutina cuenta el número de caracteres ' 
que se envían y se hace posible la implementación plena de la 
función TAB. Uno se pregunta por qué esta mejora tan sencilla 
no se incorporó al equipo original. Esta misma rutina corrige también 
el error de software que, de forma incorrecta, produce dobles es- 
pacios en los listados (por ejemplo THEN PRINT). Se ha escrito el 
código para que esté en el área de memoria correspondiente a la 
memoria intermedia (buffer) de la impresora ZX, área que no se 
emplea cuando se redefine la corriente 3. Hay que tener en cuenta 
que la corriente 3 no puede asignarse de nuevo a la impresora ZX 
ni con una sentencia CLOSE + 3 ni con una CLEAR +. La co- 
rriente 3 no transmite los retornos de carro. 


Rutina TAB 
27 REM ISAAC 
2772 REM * TAB CON EL RSsz23z2 + 
SPP REM ARIEL EREAAAAA 
000 RESTORE S100: LET c=0 
010 FOR ¡=23276 TO 234% 
020 READ a: LET c=c+a 
Faz3Oo POKE ¡,a 
70490 NEXT 1 
7050 POKE 23590,50: REM ANCHURA 


DE LA IMPRESORA 
2055 1F c<217920 THEN. FEINT "ER 
ROR EN SUMA DE CONTROL": STOP 
3060 RANDOMIZE USE 223294 

5070 RETURN 

7100 DATA 42,77,72,1,15,0,7,17 
7110 DATA 23,91, 118,25,114, 1,0,0 
7120 DATA 23,245,91,112,35,112,2 
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71490 DATA 296,71 ,203,70,203,109, 
1230 

7143 DATA 294,91,202,134,942,39,0 
sóLZ 

71530 DATA 123,205,157%,+1,42,10,19 
33167 

71504 DATA 71,239, 273,623,172,1,74 1 
57d 

7170 DATA 42,81,72,115,33,119,20 
1,00 

7130 DATA 15,922,17,7?,71,239,241, 
17 

2170 DATA 223,71,205,44,71,53,13, 
PE 

2200 DATA 87,33,2994,791,150,210,1 
43,9 | 

2210 DATA 33,122,130,2123,220,37, 
21,209 

220 DATA 122,255,150,187,200,71 
¿42,32 

2230 DATA 177?,217,215,21,19*3,16 
¿247,201 

2290 DATA 259,145,56,5,214,163,1 
53,16 

7250 DATA 12,253,203,1282,1:239,32, 
Dire 

7260 DATA 2023,139,279,232,3242%4<0 
3,198 

F220 DATA 239,128, 06,2162,/63,2057 
1167 

280 DATA ?1,33,243,71,52,125,9 
,» 170 EN ; 
2270 DATA 1$2,205,37,71,203,203, 
188,178 


7300 DATÁ 201 ,,20-,=0,<01 


Copias del contenido de la pantalla 


Otra interesante posibilidad es la de utilizar una impresora 'an- 
cha para obtener una copia en papel del contenido de la pantalla. 
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Esta posibilidad, en su forma más sencilla, se logra con las siguientes 
líneas de programa que funcionan con cualquier impresora que tenga, 
como mínimo, 32 caracteres por línea. El programa lee carácter a ca- 
rácter el contenido de la pantalla y lo envía a la impresora. 


100 FORMAT "T" ¡BAUDIREM VALOR AD 
ECUADO 

110 OPEN $95" T" 

120 FOR Y=0 TO 21 

130 FOR x=04 TO 21 

140 LET AF=5CREENE(Y,x) 

150 IF A+= ""“THEM LET pAR="" 
150 PRINT +$9;458; 

170 NEXT 

130 PRINT +4 

170 NEXT Y 


El programa explora una a una las posiciones que ocupan los ca- 
racteres mediante la instrucción SCREENS, En caso de que no se 
trate de un carácter reconocible, se imprimirá un espacio en la im- 
presora- (línea 150). En caso contrario el carácter se imprimirá nor- 
malmente. Después de cada línea de 32 caracteres se transmite un 
«newline» (línea 180). Aunque resulta un método un tanto tosco, 
la rutina no deja de ser por ello útil (en especial porque es inde- 
pendiente del tipo de impresóra con la que se trabaje). 

En caso de que se desee obtener una copia en papel de una re- 
presentación gráfica en alta resolución o de un listado que contenga 
caracteres en representación inversa y caracteres gráficos, ¿qué se 
debe hacer? Si se dispone de una impresora adecuada se pueden 
obtener verdaderas copias como ocurre al utilizar el comando COPY 
de la impresora ZX. Sin embargo, en BASIC este proceso es lento 
aunque los resultados valgan la pena. Incluyo aquí dos versiones: 
una para la gama de impresoras Epson y otra para la Seikosha 
GP100. 


Copia de alta resolución con Epson 


1000 FORMAT "E":+1200: REM CAMBIAR 
PAFA AJUSTARSE AL “"INTERFSCE”? 


36 


1010 
1420 
1030 
1040 


OPEN $23,"b" 
LPRINT CHRS 27¿" 
FOR y=175 TO ( 
LERIMT O CHRE 


e 
HH 


STEP 


AT j 
LA E cía 


HR$ 1; 


1050 
1060 


J+69FPOINT 


=23+1 


r—ó)+ 
100 
10650 


FOR x=0 TO 253% 
LPRINT CHRE 1128*FOINT (xx, + 
E a E A 

£6*POIMT e =ZI+F GEPOINT (xx, 
9) 4QEPOINT (a, SI PAE POINT ¿x, 

PRTNT LX == cd0s 

MEXT 3 

LPRIMNT CHE$ 13;CHEZ 1(; 


1470 
1100 


NEXT 
LPRIMT 


2d 


ECHR$ 2rilA ¿LARES 


Pa 


1 


Copia de alta resolución con Seikosha 


1000 
PAR 


FORMAT "b"31200:REM CAMEIJAR 


ATISTARSE AL 


1010 
1020 
1030 
105 
1040 
PAINT (x 
POTMT £x 
2*POINT 
1 O 

1070 NE:<T 
1030 
1070 
1100 


FOR: 
FOR 


NEXT 


OPEN 
LPRIMT 


tr. 
ed 
LX 


LFRINT 


“INTERFACE* 


3 : " t Y 


x= 


CHRS 13:CHRZ 


LPRIMT CHRE 


CHAR* 12 
v=1 744 T10 0 
TO 
LFEIMT ECHES 
pe=10+9ÉPOINT £x 
e — ZA 1 AE POINT 
¿+ 49RPO IN 


= 
e 


STEP 


Ear 
PO 


DA 


a “y 


To On 


10 


Sá 


Ambas rutinas se basan en el mismo principio de funcionamiento. 
Recurren a la función POINT para calcular un número binario que se 
envía a la impresora. Obsérvese que se utiliza un canal «b» puesto 
que no debe producirse ningún tipo de conversión de caracteres. 
La figura 4 muestra un ejemplo del resultado obtenido con la rutina 


para impresora Epson. 
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FIGURA 4. MUESTRA DE COPIA OBTENICA CON UNA 
IMPRESCRA EPSON 


Otras utilizaciones del RS232 


El canal «b» puede hacerse servir también para transmitir progra- 
mas, datos, código máquina y pantallas de forma similar a como 
lo hacen los canales de tipo «m» (aunque el canal «b» no necesita 
los nombres de los ficheros). Esta posibilidad puede resultar particu- 
larmente útil para enviar programas por teléfono si, por ejemplo, se 
adquiere un modem RS232. Disponiendo del hardware correspon- 
diente, para enviar programas mediante un modem de 300 baudios a 
un amigo nuestro que esté al otro extremo del hilo telefónico, 
deberá hacerse: 


FORMAT "b"3300: LOAD*"b" 


(Esto deberá entrarlo nuestro amigo y deberá ser lo primero que 
se haga). De esta manera, el Spectrum se prepara a esperar al pro- 
rama. Entonces nosotros tenemos que escribir: 


FORMAT "b"¡S300: SAVE*"b" 


El canal «t» debería dedicarse únicamente a la transmisión de tex- 
tos O listados. Todos los comandos LOAD*, SAVE*, MERGE* y 
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VERIFY* pueden emplearse con el RS232 y lo mismo ocurre con 
OPEN % y CLOSE +. En los canales relacionados con el RS232 no 
us necesario especificar los nombres de los ficheros ni los números 
que les siguen. De todas maneras, el Spectrum los acepta aunque 
los ignora. Por ejemplo, se aceptará SAVE* “b”; 5; “nombre” pero 
el resto de detalles se ignorará. 

Otra aplicación puede ser la que consiste en que el Spectrum 
actúe como terminal de otro ordenador de forma que los caracteres 
que se pulsen en el Spectrum sean transmitidos al ordenador. 


10 FORMAT "b" 5 BALD 
20 OPEN $4: "b" 

30 PAUSE 0: LET aé=INKEYS 

40 IF as>CHRE 127 THEN GO TO 20 
50 IF a$=CHR% 6 THEN POKE 23658, 
S-PEEK 22458: GO TO 20 

¿0 PRINT Hdjat; 

70 60 TO 20 


El programa trabaja por exploración del teclado (línea 30). Ignora 
todas las palabras especiales (por ejemplo STOP) que no sean los 
estándars (40) y recurre a CAPS LOCK para pasar del modo C al L 
(línea 50). Si el carácter es válido, se envía a la corriente 4 (el orde- 
nador que recibe los datos). Algunos ordenadores pueden tener reac- 
ciones extrañas ante alguno de los códigos del Spectrum (como, 
por ejemplo, ante INV VIDEO). Por lo tanto, será necesario que se 
realicen algunas comprobaciones adicionales para el Spectrum. 

Otra aplicación podría ser la siguiente en la que el Spectrum ac- 
túa como terminal de presentación de datos (display). Se imprime en 
el Spectrum todos los datos llegados a través del RS232. 


10 FORMAT “b";¡BALID 
20 OPEN $9; "b" 
30 LET af=INKEYS $4 
40 IF aé$="" THEN GO TO 3 
50 IF a$=CHR% 12 THEN CLS : G0 T 
a 20 
¿0 PRINT as; 
70 60 TO 30 
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Cuando se emplea el RS232 para entrada de datos la pulsación 
de la tecla SPACE provocará por sí sola un Break: no será nece- 
sario pulsar CAPS SHIFT. 

Es posible conectar dos Spectrums a través del RS232 y con un 
cable apropiado. Sin embargo, resulta más ventajoso emplear el enla- 
ce para red puesto que, de esta manera, se consigue el mismo efecto 
más rápidamente al tiempo que el RS232 queda libre para conectar 
otros periféricos. 


Ampliación del «Catálogo de corrientes» 
teniendo en cuenta al RS232 


Si se quiere que el programa «Catálogo de corrientes» sea capaz 
de gestionar los canales 'relacionados con el RS232 hay que añadir 
las líneas siguientes: 


«Catálogo de corrientes 3» 


190 1F Fé="T" OR Fé="B" THEM 6 


ú TO 3000 

277? REM CANAL T/B 

000 PRINT — INVWERSE 153"RSZ2232  "; 
3010 IF FN POD+5)=3130 OR FN PLD 


+S5=23132 THEN  PRINT "TEXTO":* G0 

Ta 2040 

S>0zZa4 1F FN PD+SoI=23 2325 OR FnN FID 

+¿S2=3142 THEN PRINT "BINARIO": 

4 TO 3040 

2030 PRINT "<DESCONOCIDOS" 

2044 GO SUE 15300 

E PRINT "VELOCIDAD EN BALUDI0OS 
a CSOMMACOOCEN Pzardr2+rZ) 

"o Capraoax>” 


2080 G0 TOA 13060 


Ambos tipos de canales RS232 tienen el mismo identificador en 
memoria: «T». Por lo tanto, las líneas 3010 y 3020 se encargan de in- 
vestigar si se trata de un canal de texto o de un canal binario. El pro- 
rama imprime también la velocidad en baudios. 
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Capítulo 7 


UTILIZACION DE LA RED 
DE AREA LOCAL 


Las redes permiten interconectar varios ordenadores de manera 
que se comuniquen entre ellos rápidamente. En el Spectrum la ve- 
locidad de comunicación es de más de 3 K bytes por segundo que 
resulta bastante mayor que la velocidad superior del RS232 (19200 
baudios). Se pueden conectar hasta 64 Spectrums. Esta posibilidad 
ofrece varias posibles aplicaciones. Una de ellas es la interconexión 
de varios Spectrums con fines educativos en una misma clase es- 
colar. De esta manera se pueden compartir periféricos como impre- 
soras y Microdrives. Otra aplicación es la que consiste en comunicar 
los Spectrums de dos amigos de manera que puedan intercambiarse 
rápidamente programas y datos. Finalmente, se puede hacer uso de 
la red para facilitar el desarrollo de programas (especialmente en có- 
digo máquina). Uno de los Spectrums puede tener el ensamblador 
y los programas de desarrollo y los puede transmitir al otro Spec- 
trum. La ventaja de este sistema de trabajo es que si el segundo 
Spectrum sufre un error «fatal» puede recibir rápidamente una ver- 
sión modificada del programa desde el primer Spectrum. 

Para emplear la red se utilizan canales y corrientes con el iden- 
tificador “N” o “n” por “Network” (Red en inglés). Antes de em- 
plear la red hay que decidir qué número se asigna a nuestro Spec- 
trum (que dentro de la red es una «estación»). Esto se consigue con 
la sentencia: 


FORMAT un ozt 


donde t es el número deseado (entre el 1 y el 64). Al conectar 
el Spectrum, se le asigna el número 1. Si sólo hay dos Spectrums en 
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la red no es necesario realizar una instrucción FORMAT en ambos 
puesto que cualquiera de ellos puede ser la estación 1. Si ha ol- 
vidado qué número de estación le corresponde, la función: 


PEEK 237499 


se lo dirá. 

Para conectar las estaciones hay que emplear los cables que 
acompañan cada Interface y conectarlos a los zócalos que hay en él 
—debajo de los zócalos del cassette — formando así una cadena. Hay 
que dejar siempre un cable libre puesto que se debe evitar la crea- 
ción de un bucle cerrado (la figura 5 muestra los detalles de la co- 
nexión de tres estaciones). 


EJEMPLO DE UNA KED 


Transmisión de programas a través de la red 
de área local 


Al igual que con los Microdrives y el RS232, es posible enviar 
programas y datos a través de la red. En este caso las instrucciones 
necesarias requieren la escritura del identificador «N» seguido del 
número de una estación. Por ejemplo, si su Spectrum es la esta- 
ción 10 y un amigo suyo está en la 20 habría que indicar: 


SAVE x*"n" 320 


para enviarle un programa. El borde de su pantalla tendría el color 
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negro mientras espera que su amigo acepte el programa. Su amigo 
debería indicar: 


LOAD *“n" 310 


para aceptar el programa. Cuando lo haga, los bordes de la pantalla 
de ambas estaciones empezarán a parpadear y no dejarán de ha- 
cerlo hasta que no se haya transferido completamente el programa. 
Si su amigo hubiera hecho LOAD primero, su Spectrum tendría que 
haber esperado a que usted hiciera SAVE. Después de esto, el 
programa se habría transferido perfectamente. Por razones que expli- 
“caremos más adelante resulta muy conveniente que el receptor 
haga LOAD antes de que el emisor escriba SAVE. 

Si su amigo quiere confirmar que el programa se ha transfe- 
rido correctamente, tendrá que hacer: 


VERIFY *"n" 310 


y usted tendrá que introducir: 
SAVE xXx" n" ¿20 


De nuevo ambas operaciones podrían haberse realizado en uno 
u otro orden. Se pueden añadir a estas instrucciones todas las fun- 
ciones normales que ya se han utilizado anteriormente. Por ejemplo: 


SAVE *=n“ 510 LINE 10 
LOAD *-"n" 320 SCREENS 


Transmisión de datos a través de la red 
de área local 


Para enviar datos a una estación se utilizan las corrientes y el ca- 
nal «N».- Para abrir una corriente se hace servir la sentencia: 


OPEN Hsjzun" 3x 


donde s es el número de la corriente (0— 15) y x es el número de la 
otra estación, del O al 64 (el O tiene una función especial que estu- 
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diaremos más tarde). Con esto se crea un «buffer» similar al que se 
empleaba con los canales de tipo «M» pero de un tamaño inferior 
(la mitad: 255 bytes). Cuando se abre una corriente asociada a la red 
puede ser un fichero de escritura o de lectura pero no de ambos 
tipos. Determinamos de qué tipo se trata por la primera acción 
que realizamos con él: si se hace PRINT + se convierte en un fichero 
de escritura; si se lee de él (con INPUT +% o INKEY$ 4W) se con- 
vierte en un fichero de lectura. Al igual que oeurría con los Micro- 
drives, los comandos CLOSE % son importantísimos con los ficheros 
de escritura (si no se hace CLOSE los últimos datos del buffer 
no serán enviados nunca y la estación receptora quedará eterna- 
mente a la espera). 

Mientras se llevan a cabo transmisiones a través de la red (es 
decir, mientras parpadea el borde de la pantalla) la tecla CAPS no 
es necesaria para realizar un Break (basta con pulsar SPACE). 
Nunca hay que conectar o desconectar un Spectrum mientras está 
teniendo lugar una comunicación. 


La estación 0: difusión 


Normalmente cuando se envían o reciben datos a/o desde otra 
estación, se sigue un protocolo de comunicación: si la estación re- 
ceptora no está preparada, la emisora tendrá que esperar y los da- 
tos no se perderán. Sin embargo, se ha dotado al Interface de una 
característica muy potente que es la de la «difusión» empleando 
el número O (que no sigue los protocolos antedichos). 

Cuando se envían datos a la «estación» cero se están enviando, 
en realidad, a todos los Spectrums conectados a la red y no se 
espera a que indiquen estar dispuestos a recibir la información que 
se les envía. Si los ordenadores están a la espera de recibir datos 
de la estación O, los aceptan pero, en caso contrario, la informa- 
ción se «pierde». Cuando se transmiten programas a través de la 
red a varias estaciones, cada una de ellas debe haber hecho: 


LOAD *-“n" 50 


y los bordes de sus pantallas serán de color negro mientras espe- 
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ren el programa. Después de esto, la estación que envía el programa 
debe hacer: 


SAVE *-un" 30 


y todas las estaciones que están «a la escucha» podrán cargar el pro- 
grama. Cuando se utiliza esta operación de «difusión» desde la es- 
tación O no hay ningún método sencillo de saber si ha habido 
alguien que haya recibido la información emitida y, en este caso, 
tampoco es fácil saber quién ha sido el receptor. Sin embargo, 
cuando alguien lee cualquier información procedente de la red, 
puede saber quién se la ha enviado haciendo: 


PEEK 23759 


con la que se obtendrá el número de la estación emisora. 


El programa de servicio de la impresora y 
el Microdrive 


Una de las principales ventajas de la red es que se pueden 
compartir periféricos —como por ejemplo, impresoras y Microdri- 
ves— entre varios Spectrums. Aquí van dos programas que permiten 
a todas las estaciones secundarias (en una clase, las de los alumnos) 
hacer uso de la impresora y los Microdrives de la estación principal 
len el mismo ejemplo, la del profesor). Los programas se han es- 
crito con el objetivo de que la utilización de ambos periféricos 
resulte lo más fácil posible mediante el empleo de comandos como 
SAVE y la LPRINT. Uno de ellos es para la estación principal y el 
otro para cada una de las secundarias” Para empezar, cada estación 
secundaria tiene que cargar el programa que le corresponde. La 
forma más sencilla de conseguirlo es emitiendo el programa desde la 
estación principal a cada una de las secundarias. De esta forma será 
recibido por todas las demás estaciones. Una vez hecho esto, hay 
que cargar el programa principal en la estación que disponga de la 
impresora y de los Microdrives. Luego se ejecutará el programa 


* Nota del T.: Denominamos estación principal a la que en ocasiones se le llama maestra. 
Damos el nombre de estación secundaria a la que también se llama esc/ava. 
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mediante RUN. Una vez se haya cargado todo el código máquina 
gracias a las diversas instrucciones POKE, el borde de la pantalla 
de la estación tomará el color negro y el sistema estará listo para 
ser utilizado. 

Cada estación secundaria puede recurrir a la instrucción FORMAT 
para asignarse un número de estación (excluidos el 32 y el: 64). 
Mientras los números de. línea se mantengan por debajo de la 
cifra 9000 (para evitar solapamientos con los programas secundarios) 
los programas pueden escribirse y corregirse en las propias estacio- 
nes secundarias. Si una de ellas desea emplear uno de los perifé- 
ricos de la estación principal tendrá que hacer GOTO 9000. Inme- 
diatamente aparecerá un menú y el usuario podrá hacer servir la 
impresora, catalogar, cargar o almacenar sus programas. 

Si el usuario elige la opción 1, quedará conectado a través 
de la estación principal a cualquier impresora —ZX o del tipo 
RS232— unida a ella. A partir de ese momento podrá utilizar 
LPRINT, LLIST, etc., hasta el momento en que termine (instante en 
el que deberá escribir CLOSE * 3). La opción 2 permite almacenar 
(SAVE) cualquier programa o fichero de cualquier tipo (por ejemplo, 
SCREENS$) en un cartucho de la estación principal. Con la opción 3 
se puede cargar (LOAD) cualquier fichero situado en el cartucho de 
la estación principal y que previamente haya sido almacenado con 
la opción 2. La opción 4 imprime un catálogo de todos los pro- 
gramas del usuario. La opción 5 se emplea para indicar que se desea 
terminar de trabajar. 


Listado del programa secundario 


000 CLS 

010 PRINT *" ll. UTILIZACIÓN 1M 
PERESORA" 

“420 PRINT *" Ze ALMACEMAR UN E 
FOGRAMA SAEZ" 

03d PRINT +" Ze. CARGAR Un PEOG 
RAMÁ CLOS: 

090 PRINT 7" 4. CATAaLEOGAR EL € 
ARTUCHO £CAT>" 

0530 PRINT +" ls FIMALIZAR" 


160 PAUSE (1: LET as=INKEYS 
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OA a 
.. 7] 
CCA OA DOaCa 


OS US UY 
[] 


y O A E 


A ES AS Y 


=S Teto 


BO TO 
GO TO ? 
G Oo T O 
604 TO ono 
60 To 200 


ah 1" 
a$="2" 
af="3" 
af="q" 
ah € > Ll Aa 4 
TO 000 

*ENVIAR A LA IMPRESORA: 


ab=" IMPRIMIR": 60 SUB > 


THEN 
THEN 
THEN 
THEN 
THE] 


CLOSE $31 OPEN $330" :35%4 
PRINT "LA IMPRESORA ESTA 
USAR LPRINTS ELIEST ETC. 


L FINALIZAR HACER CLOSE $2" 


AL 
o 


CQC 0O0mos 


mc cod 


O ES IS ES OS TS A Y 
O 


A y a O A 
OOo0mocO 


o 
cd y a 


4 Y 
hi Pa PO 


“Y 


“QA 


La Pm Qs 


7 
0 
1 
AL 
2 
z 


UY 


CONTACTO 
INCIFPAL." 


MACENAR:"; 
C 


G4 TA 14000 

REM XERAL AAA IA 
REM * EMITIR As Y ESPERAR + 
REM AXEL EA 
PRINT INVERSE 1;"SE ESTAEL 
CON LÉ ESTALI CN 


CLOSE $4: OPEN $4:"n":;0 
PRINT $423 
CLOSE +H4 

APEN Has n" 49 
IF INKEY*$*49="" THEN 60 TO 
CLOSE +49 

PRINT "CONTACTO CONSEGUIDO, 


RETURN 

REM FEAR 

REM *SLMASCcEMNAR UN PROGRAMA 
La CONE s X 

REM EEE 

LET at="<ave"s Ga SUE 2200 

INPUT "HOMBRE CEL FICHERO A 

LINE +3% 

OPEN Had;"n":¡44 

PRINT H9;¡+3 


A O E O 


Qt 601 Loa Mb) E 


QA 


xy 


Ie2rbcbrbcsosbo 


ES OS US SS 


e 


AS SL 


ERRI 


“YO ma a QA A 


79D PRINT 


CLOSE $9 
PRINT "MICRODRIVE LITO. HA 
LOAD x*"*n*"":¡49 ETC" 

60 TOA 14000 

REM FEAR 
REM * CARCÁR UN PREOGRAMA + 
* (LOAD: + 
LEX 
aé="lo0ad”": GO SUE 200 
INPUT "NOMBRE REL FICHERO A 
¿GAR :"3 LINE + 
UPEN HA4;"n" 5) 
PRINT $33+3 
CLOSE +3 

OPEN $4:3"n"4639 
INFLIT *d;z=t 
CLOSE H4 

IF stiírá THE 
A ENCONTRADO EL FICHERO": 


CO A 
OC 


ARA 0 yo 
Mau 
<Z 


Sa 


E A A A A al a Y 
a) " 


PRIMT "NO SE 
3TaOFP 


E 


"MICROCBRIVCE LISTO. He 
2 ER LOAD x*""p""j244 ETC” 
60 TO 1000 
REM ERE 
REM + CATALOGO = 
* (LATA + 
REM Ark 
aét="cat": GO SUE 200 


a a Y 
Ól >] cn 


A a 
SN 
m 
— 


E 
DD 
E 


"CATALOGA:” 

MOVE "n";359 TO Ho 

u PRIMT FLASH 13 "FULSAR CUA 
DUTER TECLA PARA SEGUIA" 
E PALISE ( 

260 60 TO Oo0d 


| 


Listado del programa principal 
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REM] EFE 
REM PROGRAMA DE LA ESTACION 
PRINCIPAL 


REM. ERA ALEA 


10 


cp+ 
540 
110 
iZ0 
120 
190 


_n 
QQ 


150 
UR a 
o TO 

1 2U 

134 

170 

00 

214 


PO 
E 
a] 


A UU 


fe 0% Lu 0d dá 


E mí 


-) 


4% a Te 1 01 pirita Rara 
-a 


+, 


CLEAR “cue” 


LET et=452ó00: 60 SUE 
20 LET open=S=30 70 : Ga 
40 DEF FM pop)=PEEK p+23óx* 


15 
FORMAT "pm" 
CLOSE $4 


OPEN $9;%n 


INPUT Had; 
CLOSE $4 
LET n=FEEE 


1F ora OR a=" 


da 
4 q 


LIME x= 


“o RE _ 
a 


t="laoad" UR at="cat' 


180 | 
GO TO 120 
OPEN $4;" 
PRINT $4 
CLOSE +43 


IF at="<ave" THEN 


IF aét="lc0ad"” THEN 


n* sn 


IF atét="cat" THEN  G0 
REM *rrrrrre rr rr rre. 
REM *PETICION DE IMPEESURAs: 


REM ERCEXLALCLELEAIAEAAAAEAAA 


PRINT "LA IMPRESORA ESTA 
UTILIZADA POR LA 


MOVE "n"in TO 


LPRINT 7 7* 


nn . . > 
. o o e 


PRINT "(FIM DE IMPRES 


4 TO 110 


50 


=UE 


0 


GO TU 


GO TO 


PA 
CJ 


2Ú 


ESTACION 


and)? 


REM EXERCISE 
REM *PETICION DE Sé 


REM EXEC 


OPEN +$9;" 
PRINT "LA 
¿LMACENANDO" 


DIM +21 103: 


nr 


ESTACION * 


INFUT 49; 


Ex 


sis 


pal 


E 


FE 


Sí 


=Ú 


Ct 


5] 


99 


100 


cn 
DO 


39101 


320 


CLTÓS 
330 
330 
9530 

440 

Je 


477 
Sa 


dd 
£BH0 
$1 ( 
+3 
Szú 


530 


2440 


A | 
a A a 


el fr. On Cr 


lo] 


| 
Pa 1 


A 


E Sb00s: LET +$110:=CHE$ 


FOR i=1 TO 15 
POKE US. “Ste; LoOnDE FERCA 


££,d: POKE 23/68 
ASR open: CLOS 
IF as21 THEN ERASE "m":;dj;+ 
dAPEN $33" e 
POKE FN sE * 2 
a 1+67. 8 
MOVE *"n*in TC HS 
CLUSE $3 
PRINT "PROGRAMA ALMACENADO 


a Ta 110 

o E 

REM + CALCULAR dl A * 
* PARTIR DE nr E 

REM REEL rr rrrrrx* 

LET d=1 

RETUEN 

REM EXE ELANACAIEIA 

REM *CARGA DE UN PROGRAMA: 
* ¿LOAD * 

REN FECC 

OPEN $: ñ 

DIM +: 008 IMFUT $9; LIME 


CLUSE $94: LET +$:210:=CHREÉE n 
PRINT “LA ESTÁCIOÓN *in:i" ES 


TA CARGÁNCIO" 


0 SUBE Ssún 

FOR ¡=1 TO 10 

FURE: US: “Ss "SL cEUDE +1) 
MEXT 1 

PORKE 23766,d: POKE 22768,53 
LET a=US5SE Eaal 

OPEN $4;"n*":in 


¿340 PRINT $d;a 

790 CLOSE $49 

¿20 IF aídá THEN 0 TO 70 

¿él MOVE $43 TO "n":in 

F20 CLOSE $3 

¿80 PRINT "FIN DE CARGA DEL FR 
OGRAMA) " 

220 60 TO 110 
APR REM EXE 
+3 REM + CATALOGO CE LN E 
+ CORTUECHO CATA > 

E A ee 
Ss00 PRINT "CATALOGO ¿CAT FAR 
La ESTACION "in 
0 <ts Su 
O LET z2%4="": CAT Hi3,0 
O OPEN $43"n" qn 
LET zt=2z*f12 TO) 
a 1F LEN z2E:<10 THEN GO TO ES 


on 


[um 


ra co cO CO O 
FS ni pi 
) 


a 

Sa50 IF z28c103=CHRE nn THEN  FRIH 
H49:3z2$(€ TO 9) 

LET zé=2zé12 TO 0 

290 

$94: ELOSE H3 

RINT "FIN DE OPERACION CA 


—| 
DC CJ YA 
TN | 
3 M6 
Q 
— 
7 


a 
vv 
O 
- 
— 
—] 


“o COLOCO CO 


) 
-—] 
| 


4 


700 060 PO 110 
710 REM 


4_ 


Obsérvese que el programa principal necesita que las rutinas 
“OPEN % cualquier cosa” y “Corriente 14-2$'”” estén presentes a 
partir de las líneas 7995-8510. 

Explicaré los dos programas al mismo tiempo para que usted 
pueda saber qué ocurre en ambas estaciones. 

Lo primero que hace la estación principal es activar los programas 
en código máquina. Con estaciones principales de 16 K se deberá 
realizar la sustitución: 

10 CLEAR 
¿O LE E 
30 LET open 
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La estación principal debe tener el número 64. Esto queda fijado 
en la línea 100. 

La estación secundaria debe, antes que nada, ponerse en con- 
tacto con la principal. Para ello, difunde una palabra a través de la 
red. La estación principal, una vez la ha recibido, la reconoce. Los 
ficheros de las estaciones secundarias se almacenan en cartucho 
empleando las nueve primeras letras para el nombre. La décima es 
CHR$ N donde N es el número de la estación secundaria. De esta 
manera, se pueden mantener separados uno de otro los programas 
de las estaciones secundarias. 

Cuando una estación secundaria hace uso de la opción 1 para 
conseguir el acceso a la impresora, emite repetidamente la palabra 
«print» hasta recibir un carácter de la estación 64. El establecimiento 
de este contacto queda encargado a la rutina de la línea 9200 
que abre la corriente 4 como corriente de difusión (9205), envía 
a$ (9210) y luego cierra la corriente. Después comprueba que haya 
habido respuesta de la estación 64 (9230-9240). Si no la ha habido 
se vuelve a difundir a$. Una vez recibida contestación, la linea 9610 
procede a abrir la corriente 3 para que envíe datos a la estación prin- 
cipal. El GO TO 16000 que hay en la línea 9180 y en otras tiene 
la misión de parar el programa y dar el mensaje Program finished 
(Programa terminado). 

El programa principal está leyendo continuamente cadenas de la 
corriente de difusión (líneas 120-140). Una vez leída cada una de ellas 
comprueba si se trata de una petición de alguna estación secun- 
daria (160). En caso de que no sea así, continúa leyendo nuevas 
cadenas. Si efectivamente se trata de una petición procedente de una 
estación secundaria, el programa pasa a calcular el número de la 
estación (150) y le envía una respuesta (180-200). Entonces se pasa 
a descubrir qué palabra de petición, entre las varias posibles, se ha 
recibido y, una vez conocida, se ejecuta el GOTO correspondiente 
(210-230). Si la palabra difundida era «print», se imprime el mensaje 
adecuado en el televisor de la estación principal y se emplea la 
potente instruccion MOVE para transferir todas las entradas proce- 
dentes de la estación secundaria al dispositivo que en ese momento 
esté conectado a la corriente 3 (línea 250). Cuando una estación 
secundaria envía la instrucción CLOSE + 3, termina el efecto de la 
instrucción MOVE y se imprime en la pantalla un nuevo mensaje. 
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Á partir de este momento, el proceso empieza de nuevo y la estación 
pincipal centra su atención otra vez en el canal de difusión. 

(cuando una estación secundaria elige la opción 2 para almacenar 
(SAVE) un programa, difunde la palabra «save» hasta que la estación 
principal responda (93U0). Se le pide entonces el nombre del fichero. 
Uni vez dado, se envía al maestro (9310-9340). Se imprime un men- 
wr: y se puede hacer un SAVE*”n”;64 seguido del tipo del 
fichero. St sólo se van a almacenar programas hay que realizar la 
"tntitución: 


PAD SAVE *"n"£4: 604 TO 000 


En cuanto la principal recibe la palabra «save» de una estación 
“«cundaria a través del canal de difusión abre una corriente que vaya 
a la estación secundaria e imprime un mensaje (300-310). La línea 340 
emplea la subrutina de la linea 500 para calcular cuál es el Micro- 
diive que corresponde a la estación que realiza la llamada. En la 
versión que se ilustra en estas páginas siempre se selecciona la 
unidad 1. Si el número de estaciones secundarias es grande, sin 
«“mbargo, este método de selección puede no resultar práctico. Si, 
por ejemplo, hay 63 estaciones secundarias y la principal dispone: de 
ocho unidades de cartucho, cada una de las unidades podría com- 
partirse entre ocho estaciones secundarias. En ese caso, la línea 500 
sería de la forma: 


00 LET d=1+ INT (n.- 20 


Una vez se ha calculado el número de la unidad de cartucho se 
le asigna al décimo carácter del nombre del fichero el número de 
la estación a la que pertenece (línea 340). Con un POKE se envía 
«se carácter a una posición de la memoria contenida en el área de 
gráficos definidos por el usuario (350-370). Esto, conjuntamente con 
la línea 380, lleva a cabo los preparativos necesarios para abrir cual- 
quier rutina (OPEN %X) a la corriente 5 (390). Si el fichero al que se 
hace referencia ya existía, se borra 400. La linea 410 abre un fiche- 
ro de escritura con el nombre adecuado y la línea 420 se encar- 
ga de engañar al sistema haciéndole creer que no se trata de un 
fichero de datos. Utilizando nuevamente MOVE se escribe en el 
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fichero el programa enviado desde la estación secundaria (430). 
Cuando se ha terminado el SAVE se cierra la corriente y se impri- 
me un mensaje (440-450). 

En caso de la estación secundaria elija la opción 3 (cargar un 
programa) se envía la palabra «load» y se espera una contestación 
(9400). Una vez recibida, se pide el nombre de un fichero, se. envía 
a la estación maestra y se comprueba si ese fichero existe o no. 
En caso negativo, se genera el error correspondiente (9480). Si el 
fichero existe se puede cargar mediante: 


LOAD *"n":163 
¿Si sólo se van a cargar programas, hay que realizar la sustitución: 
7470 LOBD *"p";i4¿d4: GA TO Saca 


Cuando la estación principal recibe la palabra «load» (220) lee 
el nombre del fichero que le pide la estación secundaria (600-620) 
y hace que el décimo carácter indique su procedencia. Se calcula 
el número de la unidad de cartucho (640) y se transfiere mediante 
POKEs el nombre del fichero al área de gráficos definidos por el 
usuario. La línea 700 realiza unos cuantos POKEs más antes de pasar 
a utilizar la rutina OPEN + cualquier cosa” (710) para comprobar la 
existencia del programa indicado. El número que se obtiene se de- 
vuelve a la estación secundaria. Sólo en el caso de que el tipo 
del fichero sea el correcto se cargará el fichero para transferirlo del 
cartucho a la estación secundaria mediante la instrucción MOVE 
(760). Luego la corriente del Microdrive se cierra a la vez que se 
“imprime un mensaje (770-780). 

Si una estación secundaria escoge la opción 4 para catalogar sus 
programas, emitirá la palabra «cat» hasta que se reciba la contfir- 
mación de que ha sido aceptada (9500). En ese instante se borra la 
pantalla, se imprime en ella un título y luego aparece toda la en- 
trada procedente de la estación maestra (esto es, los nombres de los 
ficheros) recurriéndose nuevamente a la instrucción MOVE (9530). 

Cuando la estación principal recibe una petición «cat» (230), 
imprime un mensaje y calcula el número de la unidad de cartucho 
(800-805). Gracias a la rutina «Corriente 14-z$» se envía un CATá- 
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logo a z$ (810) y se abre una corriente hacia la estación secundaria 
(820). Se quita el título de la cadena (830) y, si lo que sigue es el 
nombre de un cartucho, se inspecciona el valor del décimo carácter. 
Si resulta ser CHR$ N —es decir, el programa de la estación 
secundaria— entonces se envía el nombre a la estación secundaria 
(850). Cuando ya no quedan más nombres de ficheros, se cierra la 
corriente y se imprime un mensaje (880-890). 


Nuevas mejoras 


Algunos usuarios pueden necesitar incluir nuevas posibilidades 
en estos programas. Una mejora podría ser la de asociar a cada es- 
tación una lista de contraseñas (almacenadas en un conjunto o en un 
fichero de datos) de forma que ninguna estación pudiera hacerse 
pasar por otra y, destruir los programas de otro usuario. Si, ade- 
más, se guardaran los nombres de los usuarios de cada estación, 
los programas al salir por la impresora podrían llevarlos como enca- 
bezamiento, haciéndose más fácil la identificación de listados. 


Ampliaciones de «Catálogo de corrientes» 
para la red 


Para que el programa «catálogo de corrientes» sea capaz de re- 
conocer las corrientes de la red, hay que añadir las siguientes lineas 
de programa. Con ellas será posible imprimir el número de la esta- 
ción emisora y el de la receptora. Asimismo, se indicará cuándo se 
está empleando la posibilidad de emisión y cuándo no. 


1430 IF FE="N" THEN 650 TO 3300 

397% REM CAMAL H 

3300 PRIMT IfeErRSsE LEPRELD" 

2510 60 SUB 1S00 

a320- PRIMNT "Lé ESFALION ACE. 3 

FEEK 23747 

239304 FRINT "ESTA TRANSMITIENDO 4 
E SO PRER COFILI2" AENMTFLENDOS" 8 


MD PEEK «¿D+113=0 
33200 GU TO 3Sc0 
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Capítulo 8 


EL INTERFACE Y EL LENGUAJE 
MAQUINA 


Este Capítulo está dirigido a aquellos lectores que ya posean 
algún conocimiento acerca del lenguaje máquina del microprocesa- 
dor 280. Los lectores que no lo conozcan podrán, sin embargo, sacar 
provecho de algunas secciones. 


La ROM adicional de 8 K 


Además de los 16 K de ROM del Spectrum, el Interface tiene 
una ROM de 8 K que está paginada sobre la misma área de memo- 
ria, es decir, la que va del 0000 al 1FFFH (los números seguidos de 
una H están en hexadecimal). El acertado diseño del mecanismo de 
paginación hace que al sistema operativo del Spectrum le resulte 
muy fácil emplear las rutinas adicionales guardadas en la ROM del 
Interface. Sin embargo, el mismo mecanismo complica bastante la 
vida a los programadores en código máquina que quieran utilizarlas. 
Antes de entrar más a fondo en el sistema operativo y la ROM 
hay que explicar el inteligente sistema de paginación que se utiliza. 
Para evitar confusiones todas las posiciones de la memoria ROM 
adicional van precedidas en este libro por una «X». En el caso de 
que las direcciones sean distintas para cada ROM se escribe primero 
la posición antigua y luego la nueva, separadas ambas por una barra 
inclinada. 


El mecanismo de paginación 


Con una sola excepción, la paginación de la ROM se produce 
cuando el contador del Z80 alcanza la dirección 0008, es decir, cuan- 
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do se produce un RST 8. En la ROM del Spectrum —la de 16 K-— 
esta instrucción (restart) de reanudación va seguida de un byte de 
datos que determine el mensaje de error que se ha de comunicar 
durante la ejecución de un programa en BASIC (o bien indica que 
ha de aparecer un signo de interrogación intermitente para indicar 
que la siniaxis de una línea no es correcta). Si se intenta emplear 
cualquiera de las instrucciones especiales (por ejemplo CAT) o de las 
instrucciones de sintaxis extendida (por ejemplo LOAD*) el BASIC 
de 16 K provocará un error utilizando RST 8. Si el Interface está 
conectado esto hará que se saque el BASIC y se pagine la ROM 
del Interface. Entonces se calcula qué fue lo que causó el error y, 
en particular, si lo provocó una operación extendida del BASIC. 
Si no se trata de este último caso se llama a la rutina normal de 
tratamiento de errores (que está en la ROM de 16 K). Si la causa 
del error fuera una instrucción extendida, la ROM adicional pasaría a 
actuar. (ya sea ejecutando la instrucción ya sea comprobando su 
sintaxis). Cuando terminara de tratar el error, la ROM dejaría de ocu- 
par el espacio de memoria sobre el que habría sido paginada. Hay 
que decir que éste es un método ciertamente brillante para añadir 
nuevas instrucciones sin tener que tocar un solo byte de la ROM 
de 16 K del Spectrum. Tiene como desventaja la de dificultar el 
uso de las rutinas de la ROM adicional en los programas que uno 
desarrolla. 

Para superar este obstáculo, los diseñadores de la ROM adi- 
cional han empleado lo que llamaremos “códigos especiales”. Estos 
códigos permiten a las rutinas tener acceso a determinadas ruti- 
nas de la ROM adicional. Estos códigos especiales son bytes de 
datos que van detrás de la instrucción RST 8 y toman los valores 
que van del 1BH al 32H, ambos inclusive. Los códigos que van 
del FFH al 1AH producen los mensajes de error normales, mientras 
que los códigos superiores al 32H causan un error del tipo Hook/ 
code error que no están recogidos en el manual del Spectrum. 

Algunos de estos códigos son muy útiles mientras que otros no 
lo son tanto. El programador ha de tener muy en cuenta el estado 
de las interrupciones enmascarables («Nlaskable Interrupts») especial- 
mente al entrar o «salir de algunas subrutinas. Si se ha de realizar 
un retorno al BASIC (después de una función USR) entonces el 
valor del par de registros H“L” tiene que conservarse (siempre que 
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se utilicen rutinas de los Microdrives). Si no se conservaran, podría 
quedar afectado de forma negativa el calculador en coma flotante, 
lo que podría repercutir gravemente en el sistema. 

Quizás el código más útil entre los especiales sea el 32H aun- 
que oficialmente se le designe como «código reservado para futura 
expansión por SRL». Así se oculta el hecho de que este código 
(Sinclair Research Laboratories) permite que una rutina del usuario 
pueda llamar a la mayor parte de las rutinas de la ROM adicio- 
nal al mismo tiempo que permite controlar la paginación de ésta a 
voluntad. 

Algunos lectores pueden estar interesados en desensamblar la 
ROM de 8 K. Haciendo un PEEK o un LD A, (HL) sólo se podrá 
leer la ROM de 16 K. Para desensamblar completamente la ROM 
de 8 K hay que hacer lo que yo programé con un Spectrum de 
48 K: 


O CLEAR 32767 

20 SAVE *"m"31;"SK PROM"CODE 0,€l 
PE 

24 LOAD *"m"j1:"Sk ROM"ECODE 232748 


Cuando se ejecuta el SAVE* la ROM adicional está en su lugar 
de forma que conserva una copia suya en el cartucho. La línea 30 
simplemente vuelve a cargar el contenido de la ROM a partir de la 
posición 8000H (por encima de la posición que normalmente ocu- 
paría). Entonces es posible desensamblar por completo la ROM a par- 
tir de la posición 8000H teniendo siempre en cuenta que hay que 
restar 8000H a todas las direcciones absolutas. 

Aparte de cuando se realiza un RST 8, la paginación de la ROM 
adicional tiene lugar cuando el PC es igual a 1708H (posición que 
corresponde a la mitad de la rutina asociada a la instrucción 
CLOSE +). Esto se debe a que contiene un error «fatal» y a que 
resulta muy poco adecuada para trabajar con los tipos adicionales de 
canales que utiliza el Interface. 


La ROM adicional anterior y la nueva 


En marzo de 1984 Sinclair rediseñó la ROM adicional que formaba 
parte de las unidades de Interface 1. Aunque las diferencias son 
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prácticamente transparentes para quien programe en BASIC, el pro- 
gramador en lenguaje máquina las advertirá. En la nueva ROM se 
han corregido la mayoría de errores de la ROM anterior, en espe- 
cial los que tenían que ver con CAT y FORMAT. Sin embargo, 
la mayor parte de las rutinas están situadas en lugares distintos de 
cada ROM con ¡o que su utilización difiere ligeramente. Para saber 
qué tipo de ROM está conectada mientras está paginada (ver más 
adelante para saber cómo se hace esto) hay que comprobar la po- 
sición X16DA. En la ROM anterior esta posición se encuentra en 
una sección no utilizada y contiene el valor FFH pero en la nueva 
memoria es el inicio de un mensaje de «copyright» y su contenido 
es 7FH. Siempre que ha sido posible se ha utilizado un código in- 
dependiente de la posición, para la confección de las notas siguien- 
tes de la ROM. 


Cómo funcionan los canales y las corrientes 


Los canales y las corrientes pueden tratarse desde programas 
en código máquina de forma similar a como se hacía desde el BASIC. 
Las corrientes emplean el área de memoria denominada STRMS y 
están en contacto con los canales (que emplean el área de memoria 
CHANS). El área STRMS es fija y está comprendida entre las po- 
siciones 5C10H y 5C35H (ambas inclusive). La longitud de esta área 
es de 19 pares de bytes, uno por cada una de las corrientes FHD 
a OFH. Con cada par de bytes se obtiene un desplazamiento de 
16 bits. Este desplazamiento tiene el valor cero si no hay ningún 
canal asociado a la corriente. En caso de que el desplazamiento 
obtenido no sea cero, se utilizará para realizar un direccionamiento 
indexado sobre el área CHANS. Cuando se inicializa, el área CHANS 
está formada por veinte bytes organizados en cuatro grupos de cinco 
bytes (cinco bytes por canal). La variable del sistema «CHANS» 
apunta al principio del área de memoria CHANS. Esta posición 
inicial es la 54FH. El final del área CHANS se encuentra dos bytes 
antes de PROG. 

Inicialmente la información referente a los canales agrupa datos 
acerca de cuatro canales —cinco bytes para cada canal — según el 
orden «K», «S» «R» y «P». Los primeros 16 bytes del área STRMS 
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contienen la información que se muestra en la siguiente tabla junto 
a los canales correspondientes: 


NUMERO DE POSICION DESPLAZAMIENTO CANAL 
CORRIENTE DE CORRIENTE DEL CANAL 

FD 5C10 0001 «K» 

FE 5C12 0006 «S» 

FF 5C14 000B «R» 
00 5C16 0001 «K» 

01 5C18 0001 «K» 

02 BC1A 0006 «S» 

03 5C1C 0010 «P» 

04 BC1E 0000 NINGUNO 


Para encontrar los datos del canal correspondiente a una deter- 
minada corriente hay que sumar a CHANS (después de comprobar 
que no es cero) el desplazamiento correspondiente al canal y, luego, 
restar uno a lo que se obtenga. El resultado apunta a la posición 
donde empiezan los datos que corresponden. Éstos ocupan, al me- 
nos, cinco bytes. El primer par de bytes apuntan a la rutina de 
salida de la ROM, Los dos segundos apuntan a la rutina de entra- 
da y el quinto byte es el identificador —en mayúsculas —del canal. 
Por ejemplo, el canal «S» se almacena de la siguiente manera: 


LHANS+5 DEFW asFIH 
DEFI 13£4H 
DER ar 


En realidad, 09F4H se utiliza como rutina de salida de los canales 
«K», «S» y «P» aunque las acciones que se realizan son distintas 
según cual sea el identificador del canal. 


Los canales del Interface 


Para hacer servir cualquiera de las posibilidades del Interface el 
sistema necesita traer de la posición 5CB6H 58 bytes adicionales 
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para sus variables. Hay que inicializar esta área antes de usar cual- 
quier rutina de la ROM adicional o de los códigos especiales y 
antes de que se creen tipos de canales adicionales (como por ejem- 
plo, la rutina «Corriente 14-z$»). Esto se consigue mediante las ins- 
trucciones: 


CF RST 03 
31 DEFB <1H 


Si el Interface aún no está conectado, se producirá el error «i». 
En caso contrario, se insertarán los 58 bytes y no habrá error algu- 
no. Las variables utilizadas se detallan en el Apéndice A. 

Las variables adicionales del sistema se crean generalmente 
cuando: 


1) hay un error (ya sea de sintaxis, ya sea de ejecución) 
1i) se introduce o ejecuta cualquier instrucción del BASIC extendido 
1) se ejecuta una instrucción CLOSE + 


Inicialmente, la variable VECTOR de la posición B5CB7H tiene el 
valor 01FOH pero puede cambiarse para permitir la inclusión de 
nuevas instrucciones en BASIC. Sólo hablando de este aspecto del 
Interface se podría escribir un libro entero. Aquí daremos más de- 
talles en un Capítulo posterior. 

La variable IOBORD de la posición 5CC6H se utiliza para deter- 
minar el color del borde de la pantalla durante determinadas opera- 
ciones de Entrada/Salida, es decir las que se realizan a través del 
RS232, de la red y cuando se escribe en un cartucho. Si usted tiene 
preferencia por un determinado color puede hacer POKE 23750 con 
el color de su gusto. Por otra parte, si le molesta el parpadeo del 
borde puede hacer: 


POKE 2330, 1NT” 2PEEK 2352433 


con el que se consigue que el color del borde durante una operación 
de E/S sea el que normalmente tiene esta área de la pantalla. 

Los canales adicionales del Interface —«M», «N», «T» y «B»— 
utilizan un formato extendido para almacenar sus detalles en el área 
CHANS. 
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El canal «Mp» 


2 0 Y0U04ANoOo 


25 
26 


28 


M 


o. 


Ocupa 595 bytes del área CHANS. Lo direcciona el registro 1X 
de la ROM adicional. El papel de cada byte es el siguiente (todos 
los desplazamientos están en decimal): 


DEFW 8 

DEFW 8 

DEFM “M” 

DEFW 11D8H/12B3H 
DEFW 1122H/11FDH 
DEFW 595 

CHBYTE 


CHREC 


CHNAME 
CHFLAG 


CHDRIVE 
CHMAP 


HPREAM 


HDFLAG 


HDNUMB 


HDNAME 


HDCHK 


rutina de salida 

rutina de entrada 

identificador del canal 

salida de la ROM adicional 

entrada de la ROM adicional 

longitud del área CHANS 7 

posición dentro del buffer en un mo- 
mento dado (0-512). (El contador de by- 
tes en curso indica el siguiente byte a 
añadir o quitar de la zona de datos de 
0 a 512 inclusive). 

posición de un registro dentro de un 
fichero (0-255) 

los 10 bytes del nombre del fichero 

byte indicador. Si el bit O de este byte 
está activado indica que el fichero es de 
lectura; si está a «1», el fichero es de 
escritura. Los bits 1 al 7 no se utilizan. 
número de unidad de cartucho (1-8). 
posición del mapa (MAP) de la unidad 
Microdrive. 

12 bytes de preámbulo de encabeza- 
miento. Marca el comienzo del espacio 
de trabajo del encabezamiento. 

byte indicador. bit 0: indica el encabeza- 
miento. 

bits 1-7: no utilizados (no definidos). 
número de sector (0-255) 

no utilizado (no definido) 

10 bytes para el nombre del cartucho y 
espacios a la derecha. 

Suma de control del encabezamiento. 


55 DPREAM 


67 RECFLG 


68 RECNUM 
69 RECLEN 


71 RECNAM 
81 DESCHK 
82 CHDATA 


593 
594 DCHK 


12 bytes previos al bloque de datos 
(marcan el comienzo del espacio de tra- 
bajo de datos). 

byte indicador. bit 0: no activado para 
indicar que «no se trata de un encabeza- 
miento». 

bit 1: no activado: no se ha producido 
EOF 

activado: EOF 

bit 2: no activado: fichero PRINT 
activado: no se trata de un fichero 
PRINT. 

bits 3-7: no utilizados. 

Número de este registro (0-255) 

Número de bytes de datos que hay en 
este registro (0-512) 

Los diez bytes del nombre del fichero, 
con espacios a la derecha. 

Suma de control de la información com- 
prendida entre RECFLG y DESCHK-1 

El primer byte. de un «buffer» de 512 
bytes de datos. 

último byte 

Suma de control de los 512 bytes/pre- 
cedentes. 


Cualquier Microdrive que esté utilizándose tiene, además, 32 by- 
tes para su uso particular, en el área de mapeo de los Micro- 
drives (que va de las posiciones 5CFOH a CHANS-1). Cada bloque de 
32 bytes es un mapeo de bits de cada sector del cartucho. Si un de- 
terminado bit está activado, significa que el sector no .es utiliza- 
ble bien porque ya contenga datos bien porque esté en malas con- 


diciones o no los haya. 


El canal «N» 


Ocupa 276 bytes del área CHANS. Lo direcciona el registro |X 
de la ROM adicional. El papel de cada byte es el siguiente: 
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O DEFW 8 


21 


DEFW 8 

DEFM “N” 

DEFW OD6CH/O0EA9H 
DEFW ODOCH/ODA9H 
DEFW 276 

NCIRIS 


NCSELF 


NCNUMB 
NCTYPE 


NCOBL 
NCDCS 
NCHCS 
NCCUR 
NCIBL 


NCB 


identificador del canal 

rutina de salida de la ROM adicional 
rutina de entrada de la ROM adicional. 
longitud de esta área CHANS 

número de la estación de destino, es 
decir, a la que se envía el mensaje (0-64) 
número de la estación de este Spectrum 
(0-64) 

número de bloque (0-65535) 

El código o tipo del paquete: 0-datos, 
1-EOF (fin de registro) 

número de bytes que hay en el bloque 
de datos (0 si se trata de una salida) 

la suma de control de datos. 

la suma de control del encabezamiento 
la posición del último carácter tomado 
de la memoria intermedia («buffer»). 

el número de bytes en el «buffer» de 
entrada (0 si se trata de una salida) 
inicio del «buffer» de datos de 255 bytes 


Los canales «Tr» y «B» 


0 
2 
4 


5 DEFWOC3CH/0CEAHI(T). 


7 DEFW OB6FH/0B76H(T) 


9 
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Estos dos canales ocupan 11 bytes cada uno en el área CHANS 
(la cantidad mínima para aquellos canales que no sean los normales). 
El papel de cada byte es: 


DEFB 8 
DEFB 8 
DEFB “T” 


o OC5AH/0DO7H(B) 


o 0B75H/0B7CH(B) 
DEFW 11 


identificador del canal («T» para la ROM 
anterior y «B» para la nueva). 


salida de la ROM adicional 


entrada de la ROM adicional 
longitud de esta área CHANS 


Cuando desde el BASIC o desde programas en código máquina 
se emplean las instrucciones SAVE*, etc. y FORMAT, MOVE o 
ERASE, se crean canales temporales. Son similares a los canales 
descritos anteriormente si bien hay cuatro diferencias importantes: 


i) el byte del identificador tiene el bit superior activado 
1i) estos canales no se conectan nunca a una corriente 
11), desaparecen cuando ha terminado la ejecución de la instrucción 
que los ha creado o cuando hay algún error. 
iv) siempre están al final del área CHANS: un canal permanente 
nunca puede estar en la memoria más arriba de la posición 
ocupada por uno temporal. 


Los canales que no son los normales tienen un número mínimo 
de 11 bytes en el área CHANS (tal y como pasa con los canales 
«T» y «B»). Los dos primeros pares de bytes —normalmente, los 
punteros a las rutinas de entrada y salida— son ambos iguales 
a 0008 y ponen en marcha la paginación de la ROM adicional. Se 
detecta entonces que es necesaria una rutina para el canal y para 
ello se utiliza el par de bytes situados cinco bytes más abajo en 
el área CHANS seleccionada, es decir, se utiliza la rutina de la 
ROM adicional. Cuando la rutina termina, la ROM deja de ocupar 
el espacio de memoria que, por paginación, se le había asignado. 

El par de bytes de la novena y décima posiciones forman conjun- 
tamente un número de 16 bits que indica al sistema el número de 
bytes que ocupa el canal en el área CHANS. Este par de bytes 
son extraordinariamente importantes puesto que cuando hay algún 
error se utilizan para avanzar por el área CHANS en busca de los 
canales temporales que es necesario cerrar. Si se omitieran estos 
bytes o no fueran correctos, el sistema se vería seriamente afectado 
en cuanto se produjera el primer error. 


Utilización de las corrientes 


Cuando se quiere emplear una corriente para entrada o para 
salida hay que recurrir a la rutina STRM__OPEN que está en la 
posición 1601H (no es en absoluto similar a la instrucción OPEN + 
del BASIC). Al entrar en la subrutina, el acumulador tiene que 
contener un número de corriente válido (es decir un número com- 


prendido entre FDH y OFH). A partir de él se calcula el desplaza- 
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miento correspondiente que habrá que realizar sobre el área STRMS. 
Si este desplazamiento es cero se produce el error Invalid stream 
(«corriente no válida»). Si no es cero, se calcula la posición co- 
rrespondiente dentro de CHANS. El valor que allí se encuentre se 
guarda en la variable “dei sistema CHURCHL, situada en la posición 
5C51H. 

Para sacar caracteres por una corriente dada, hay que cargar 
en el acumulador el código del carácter y luego llamar a la rutina 
OUTPUT que está en la posición 0010H mediante una instrucción 
RST 10. Los registros BC, DE y HL no resultan afectados. 

Para entrar caracteres desde una corriente dada hay que llamar a 
la rutina INPUT de la posición 15E6H. Los registros BC, DE y 
HL permanecerán inalterados. Al retornar de la subrutina el señali- 
zador («flag») de acarreo se activará si el registro A contiene un 
carácter válido leído. Si no se ha leído carácter alguno, se activará 
el señalizador de cero. Si se da una situación de fin de fichero 
tanto el bit de acarreo como el de cero se desactivarán. 


Utilización de los canales 


Desgraciadamente, no existe un equivalente sencillo en código 
máquina para la instrucción OPEN +. Para pruebas se podrían abrir 
las corrientes correspondientes desde el BASIC y utilizarlas desde el 
código máquina. Probablemente este método no dé resultados muy 
satisfactorios. Más adelante en este mismo capítulo se dan las equi- 
valencias en lenguaje máquina para cada tipo de instrucción OPEN %. 
El equivalente en lenguaje máquina de la instrucción CLOSE % es lo 
siguiente: 


LD Aj,corriente 


RES 1,(1Y+1239) ¡"senalar oue na 
ze trata de un 
CLESR $" 

ME srutima CLOSE Je 
la ROM adicional 


LOEB IO BL 
¡e 
DEFBE 32H 
RET 
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Se utiliza aquí el código especial 32H para llamar la rutina CLOSE 
de la ROM adicional. 


Rutinas de la ROM 


De aquí en adelante se muestran una lista de rutinas de la ROM 
adicional que sirven para utilizar las posibilidades del Interface. Se dan 
detalles acerca de cómo utilizar las rutinas (normalmente se emplean 
códigos especiales) así como información acerca del estado de los re- 
gistros e interrupciones a la entrada y a la salida de las rutinas. 
También se indica qué registros quedan afectados por cada rutina. 
Asimismo, se indica cuál es la posición en la que se encuentran las 
rutinas. 


Rutinas del Microdrive 


OPEN__M: crea un canal «M» temporal en el área 
CHANS 

Para activar la rutina: RST 8 
DEFB 22H 

Entrada: Permitidas las interrupciones 

Salida: IX = principio del área, HL = desplaza- 


miento de la corriente (= IX — CHANS 

+ 1). Permitidas las interrupciones. 
Registros: AF, BC, DE, HL, BC”, DE”. HL”, IX 
Posición: X1B29H/1B05H 


Funcionamiento: antes de utilizar esta rutina, la variable del sis- 
tema D__STR1 ha de contener el número de la unidad de cartucho, 
N__STR1 la longitud del nombre del fichero, y T__STR1 tiene 
que apuntar al principio del nombre del fichero. Primeramente se 
inserta un bloque de 595 bytes al final del área CHANS (si lo permi- 
te el espacio de memoria disponible) y en ella se copian los atri- 
butos del fichero correspondientes. Si para la unidad de cartucho es- 
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pecificada no existe área de mapeo, se crea una que se rellena 
con FFS. Entonces se pone en marcha la unidad de cartucho y 
empieza a buscarse el nombre del fichero. Si se encuentra el nom- 
bre del fichero, se carga el primer sector y el O de CHFLAG se 
pone a 0 y a 1 para indicar que se trata de un fichero de escritura. 
Si es un fichero de lectura, el bit O de IX + 25 (CHFLAG) se pone 
a O (en caso de ser un fichero PRINT). En otro caso (para pro- 
gramas, bytes, etc.) se deja a 1. Obsérvese que no se comprueba el 
estado de la lengúeta o pestaña de protección contra escritura. Para 
realizar esta operación, después de la rutina, hay que hacer lo 
siguiente: 


IN A,CEFH)> 
AND 1 :2 31 ESTA PROTEGIDO 


Nótese que esta rutina no desconecta el motor de la unidad de 
cartucho. El canal que se crea es temporal. Para hacerlo permanen- 
te e incorporarlo a una corriente hay que hacer lo siguiente: 


LD A,corriente 


ADD A,A, 

LD HL,St14H 

LD E,A 

LD D,0 

ADD HL,rE 

PUSH HL salmacenarisave) 
la posicion de 
la corriente 

RST 8 

DEFB UPEN_M 

PUSH HL jalmacenarísave) 
el desplaza- 
mienta dentro 
de la corriente 

XDR A 

RST 8 

DEFB MOTOR ¡desconectar 


matores 
POP DE 
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POP HL 


LD(HL>,E 

INC HL . 

LDAHLI,D salmacenar nue- 
vos datos en 
STEMS 

RES 7,(1X+9) hacerla perma- 
nente 

RET 


MAKE__M: crea un área “M” de 595 bytes en CHANS 


Para ponerla en marcha: ROM anterior nueva ROM 
LD HL, OFESH RST 8 
LD(HD__11), HL DEFB 2BH 
RST 8 
DEFB 32 H 

Entrada: Permitidas las interrupciones 

Salida: IX = inicio del área, HL = IX—CHANS 
+ 1. Permitidas las interrupciones. 

Registros: AF, BC, DE, HL, B«E», D«E», 
H«L», IX 

Posición: XOFESH /10A5H 


Funcionamiento: Antes de utilizar esta rutina, D__STR1 tendría 
que guardar el número de la unidad de Microdrive, N__STR1 la 
longitud del nombre del fichero y T__STR1 su inicio. Se inserta al 
final de CHANS (si la memoria lo permite) un área de 595 bytes 
sobre la que se copian los atributos. Si la unidad no tiene ningún 
mapa, se crea uno y se rellena con FFH. En la ROM anterior no se 
puede hacer servir el código especial 28H puesto que, por error, 
realiza las mismas funciones que el código 22H. 


MOTOR: Pone en marcha el motor de una unidad de cartucho 
o desconecta el de todas. 


Para activarla: RST 8 


DEFB 21H 
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Entrada: A debe valer de 1 a 8 para conectar el 
motor, A = 0 para desconectarlos. 


Salida: Interrupciones prohibidas si A <> 0 y 
permitidas si A = O 

Registros: AF, BC, DE, HL 

Posición: X17F7H/1532H 


Funcionamiento: Si el acumulador es distinto de cero, el Micro- 
drive correspondiente pondrá su motor en marcha y se desconecta- 
rán los motores de los otros Microdrives. Si el acumulador es cero, 
todos los motores serán desconectados y se permitirán las interrup- 
ciones. En el caso de que el Microdrive que se ha seleccionado no 
estuviera conectado, no existiera cartucho o no estuviera formatea- 
do, se produciría un error del tipo Microdrive no presente o inexis- 
tente (Microdrive not present). 


CLOSE__M: cierra un canal '“M”” 


Para activarla: RST 8 

DEFB 23H 
Entrada: IX = inicio del área del canal «M» 
Salida: permitidas las interrupciones 
Registros: AF, BC, DE, HL 
Posición: X12A9/138EH 


Funcionamiento: Si el canal escogido es un fichero de escritura, 
se envían los datos remanentes en la memoria intermedia («buffer»). 
El motor de la unidad de cartucho se desconecta y se libera el 
área de 595 bytes. El área de mapeo correspondiente también se 
libera si no está siendo utilizada por otro canal. 


ERASE__M: borra un fichero guardado en Micro- 
drive 

Para activarla: RST 8 
DEFB 24H 

Entrada: nada 

Salida: permitidas las interrupciones 
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Registros: AF, BC, DE, HL, BC”, DE” H“L”, 
IX 
Posición: X1D6EH/1D79H 


Funcionamiento: Antes de utilizar la rutina, las variables del sis- 
tema D_STR1, T__STR1 y N__STR1 deberían tener por valor el 
número adecuado de unidad de cartucho. Además debería eliminarse 
una cadena del fichero. Se crea un canal temporal «M» y se busca el 
fichero en el cartucho. Si se encuentra, se borra (aunque, en el caso 
de que haya copias múltiples, sólo resultará borrada una de ellas) sólo 
si existe la pestaña O lengúeta de protección contra escritura. 

Si esta pestaña no existe, se produce un error. Cuando la rutina 
termina, se desconecta el motor y se elimina el canal temporal. 


RECLAIM__M: Libera un área «M» de 595 bytes 
Para activarla: RST 8 

DEFB 2CH 
Entrada: IX = principio del área del canal «M» 
Salida: nada 
Registros: AF, BC, DE, HL 
Posición: X10C4H/119H 


Funcionamiento: Primeramente se libera toda el área de 595 bytes 
y se cierran todas aquellas corrientes que estuvieran apuntando hacia 
ella. El área de mapeo de 32 bytes se libera únicamente en el caso 
de que ningún otro canal la esté utilizando. 


CAT: cataloga un cartucho 
Para ponerla en marcha: LD HL,CATANY 
LD(HD__11), HL 
RST 8 
DEFB 32H 


CATANY LD HL, (04B0H) 
INC HL 
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LD E, (HL) 
INC HL 
LD D, (HL) 
EX DE, HL 
JP (HL) 
Entrada: Permitidas las interrupciones 
Salida: : Nada 
Registros: AF, BC, DE, HL, A“F”, BC”, DE”, 
HL”, IX 
Posición: X1C58H /1C52H 


Funcionamiento: Antes de activar esta rutina, S__STR1 debería 
de contener el número de corriente del catálogo y D__STR1 el nú- 
mero de la unidad de Microdrive. Como no existe ningún código es- 
pecial para CAT se emplea el código 32H en combinación con 
HD__11 para llamar a la rutina CATANY cuando la ROM ha sido pa- 
ginada. CATANY calcula dónde se encuentra la rutina CAT. Para ello 
recurre al examen de la rutina de sintaxis (que se encuentra en la 
misma posición en ambas ROMs). Primeramente, la corriente esco- 
gida se abre (utilizando 1601H) y luego se crea un canal de tipo «M» 
temporal. Se pasa a examinar cada uno de los encabezamientos del 
cartucho y se guarda el nombre del fichero en la memoria inter- 
media (buffer) de 512 bytes que hay en el área CHANS a menos 
que ese nombre ya esté allí o empiece por CHR$ O. Luego, se colo- 
ca el nombre en la posición que alfabéticamente le corresponde den- 
tro de la memoria intermedia (buffer). Cuando se ha explorado todo el 
cartucho o cuando se han encontrado 50 nombres de fichero, se des- 
conecta la unidad de Microdrive y se escribe el nombre del cartucho 
en la corriente elegida. Después de esto se sacan todos los nombres 
de fichero que hay en la memoria intermedia (buffer), se imprimen 
y luego se indica el número de kilobytes libres que aún quedan. Este 
número se calcula dividiendo por dos la cantidad de bits a cero 
existentes en el área de mapeo correspondiente. Finalmente, se libera 
el área «Mb». 


Formato de datos de los cartuchos 


Antes de pasar a explicar otras rutinas de mayor complicación, 
referentes a los Microdrives, es necesario hablar sobre la organiza- 
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ción de los datos en la cinta. Un cartucho se divide en unos 180 sec- 
tores, cada uno de los cuales contiene 512 bytes de datos. En rea- 
lidad, las rutinas están diseñadas para trabajar con 256 sectores 
pero los sectores O y los que se encuentran por encima del 180 
o bien no existen o bien no se usan nunca. Además hay dos o tres 
sectores que nunca pueden utilizarse por estar situados donde se en- 
cuentra la unión de la cinta. 

Antes de que se inicie el sector propiamente dicho hay doce 
bytes «de preámbulo» (diez O y 2 FF); luego vienen 15 bytes donde 
están las variables HDFLAG — HFCHK. Cada encabezamiento tiene 
un número distinto (HDNUMB) del 1 al 180 almacenado secuencial- 
mente en el cartucho. 

Después del encabezamiento viene el sector propiamente dicho. 
Está formado por 12 bytes de preámbulo (como antes), 15 bytes 
para las variables (RECFLG a DESCHK), 512 bytes de datos y, final- 
mente, un byte de Suma de Control (DCHK). Para indicar que un 
sector no se utiliza, los bits 1 de RECFLG y del byte alto de RECLEN 
(IX + 70) están desactivados. 

Como la mayoría de los ficheros son demasiado grandes para ca- 
ber en un sector, se subdividen en registros de 512 bytes que se nu- 
meran secuencialmente a partir del 0. Si un sector contiene menos 
de 512 bytes, el bit 1 de RECFLG se activa para indicar que se 
trata del último sector. Todos los ficheros que no son del tipo PRINT 
(como los de programas) almacenan sus atributos en los brimeros 
9 bytes del registro número O. Estos son los atributos HD__00 a 
HD__11 que se explican en el Apéndice A. 

El resto de códigos especiales que hacen referencia a los Micro- 
drives son: 


READ_P: lee un registro de un fichero PRINT 
Para activarla: RST 8 
DEFB 27H 
Entrada: IX = inicio del área del canal «M» 
salida: Permitidas las interrupciones, motor en 
marcha 
Registros: AF, BC, DE, HL 
Posición: X1A17H/1FOBH 
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Funcionamiento: Antes de empezar a utilizar esta rutina, CHDRIV 
debería contener el número de la unidad de cartucho, CHRC el 
número de registro requerido y CHNAME el nombre del fichero. Pri- 
meramente se pone en marcha la unidad de cartucho escogida y a 
SECTOR se le da el valor 04FB (= cinco revoluciones completas). 
Se busca entonces en el cartucho, dentro del fichero escogido, el 
número del registro indicado. Si se encuentra y el fichero es del tipo 
PRINT, se transfiere el sector a la memoria intermedia (buffer) y se 
retorna de la rutina. Si el fichero no es de tipo PRINT, entonces se 
libera el área y se produce un error Tipo de fichero equivocado 
(Wrong file type). Si después de cinco búsquedas consecutivas no 
se ha conseguido encontrar el registro buscado, se producirá el 
error Fichero no encontrado (File not found) y, si era temporal, 
se liberará el área. 


READ__NP: lee el siguiente registro de un fichero 
de tipo PRINT 

Para activarla: RST 8 
DEFB 25H 

Entrada: IX = inicio del área «M» 

Salida: Prohibidas las interrupciones, motor en 
marcha 

Registros: AF, BC, DE, HL 

Posición: X1A09H/1EFDH 


Funcionamiento. Esta rutina, similar a READ__P y a CHDRIV, de- 
bería de tener por valor el número de la unidad de cartucho y 
CHNAME el nombre del fichero. Primeramente, se inspecciona el 
bit 1 de RECFLG para ver si el registro que está en ese momen- 
to en memoria es el último o no. Si lo es, se producirá un error 
de Fin de fichero. En caso contrario, se incrementará el contenido 
de CHREC y el control pasará a READ_P. 


READ_S$: lee el sector siguiente 
Para activarla: RST 8 
DEFB 29H 
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Entrada: IX = inicio del área “*M” prohibidas las 
interrupciones, motor en marcha. 


Salida: prohibidas las interrupciones, motor en 
marcha 

Registros: AF, BC, DE, HL 

Posición: X1A86H/1F7AH 


Funcionamiento: El encabezamiento inmediato y el sector son leí- 
dos en el área del canal en la cinta. Si se trata de un fichero del tipo 
PRINT se realiza un retorno de la subrutina y se desactiva el seña- 
lizador de acarreo. Si no se trata de un fichero del tipo PRINT o falla 
el control de suma, se borra el contenido de la memoria inter- 
media (buffer) y el retorno se realiza con el señalizador de acarreo 
activado. 


READ_R: lee un sector de un fichero PRINT di- 
rectamente 

Para activarla: RST 8 
DEFB 28H 

Entrada: IX = inicio del área «M» prohibidas las 
interrupciones, motor en marcha 

Salida: prohibidas las interrupciones, motor en 
marcha 

Registros: AF, BC, DE, HL 

Posición: X1A4BH/1F3FH 


Funcionamiento: Se busca en el cartucho el sector cuyo número 
es CHRC. Si se encuentra, se transfiere a la memoria intermedia 
(buffer). Si el fichero es de tipo PRINT, se pone a cero el señalizador 
de acarreo y se retorna de la subrutina. Si no es un fichero del 
tipo PRINT, se borra el contenido de la memoria intermedia (buffer) y 
se activa el señalizador de acarreo. Si, después de una vuelta, no 
se ha encontrado el sector buscado, se produce un error Fichero no 
encontrado (File not found). 


SCAN__M: lee un encabezamiento del cartucho 
(sólo en ROM nueva) 
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Para activarla: RST 8 


DEFB 33H 

Entrada: IX = inicio del área «M», prohibidas las 
interrupciones, motor en marcha 

Salida: prohibidas las interrupciones, motor en 
marcha 

Registros: AF, BC, DE, HL 

Posición: X1FE4 (sólo en la ROM nueva) 


Funcionamiento: Se lee la cinta que pasa ante la cabeza del Mi- 
crodrive hasta encontrar un encabezamiento válido que se transfe- 
rirá a la zona comprendida entre las posiciones HDFLAG y DESCHK 
ambas inclusive. Si la Suma de Control no concuerda o si el nom- 
bre de fichero del sector empieza con CHR$ 0, se borra el conte- 
nido de toda el área y se activa el bit de acarreo. En cualquier 
otro caso, se desactiva el bit de acarreo. Para leer los encabezamien- 
tos de sectores adyacentes es necesario que cualquier código que se 
ejecute, entre dos llamadas consecutivas, tarde menos de 30 ms. 


WRITE_S$S: escribe un sector secuencialmente 

Para activarla: RST 8 
DEFB 26H 

Entrada: IX = inicio del área «M» 

Salida: Permitidas las interrupciones, motor pa- 
rado 

Registros: AF, BC, DE, HL 

Posición: X1MFFHH/12DAH 


Funcionamiento: Antes de la llamada a la subrutina, las varia- 
bles CHBYTE, CHREC, CHNAME y CHDRIVE así como la memoria 
intermedia (buffer) deben estar inicializados convenientemente. Pri- 
meramente, se pone en marcha el motor correspondiente y se com- 
prueba todo el cartucho. Se transfiere el nombre del fichero de 
CHNAME a RECNAME y CHBYTE pasa a CHREC así como RECLEN 
a RECNUM. Se calculan las sumas de control (checksums) DESCHK 
y DCHK. El área comprendida entre RECFLG y DCHK se escribe en 
el primer sector libre del cartucho (en el supuesto de que no esté 
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protegido contra la escritura). Se da el valor adecuado al bit co- 
rrespondiente del área de mapeo. Se da el valor cero a CHBYTE y 
se incrementa CHREC. Finalmente, se desconecta el motor. 


WRITE__R: escribe un sector directamente. 

Para activarla: RST 8 
DEFB 2AH 

Entrada: IX = inicio del área «Mb», las interrup- 
ciones prohibidas, el motor en marcha 

Salida: prohibidas las interrupciones, motor en 
marcha 

Registros: AF, BC, DE, HL 

Posición: X1A91H/1F85H 


Funcionamiento: Antes de llamar a CHREC ésta debería tener 
el valor que se desearía atribuirle, y CHNAME debería contener 
el nombre del sector que tendría que ser conservado. Se busca una 
sola vez en el cartucho el sector cuyo número es el CHREC. Si no 
se puede encontrar, se genera el error Fichero no encontrado 
(File not found). Si se encuentra en el cartucho, se comprueba la 
lengileta o pestaña de protección contra escritura. Si existe, se es- 
criben en el cartucho los bytes del sector y de datos (RECFLG— 
DCHK) y se activa el bit correspondiente en el área de mapeo. 
Obsérvese que antes de escribir el área de mapeo no se realiza 
ninguna comprobación acerca de su contenido. En todo caso, debe 
ser el usuario quien, si lo desea, la realice. 


Rutinas del RS232 


Antes de utilizar cualquier rutina relacionada con el RS232 deben 
existir las variables adicionales del sistema y se ha de indicar la 
velocidad en baudios escogida. Lo primeró puede conseguirse median- 
te el código especial 31H y lo segundo dando el valor necesario a 
BAUD (posición 5CC3H). 


2321N: lee un byte del RS232 
Para activarla: RST 8 
DEFB 1DH 
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Entrada: nada 

Salida: el señalizador de acarreo estará activado 
si se ha leído un byte; A = byte leído, 
permitidas las interrupciones. 

Registros: AF, BC, DE, HL 

Posición: X020B81H/0B88H 


Funcionamiento: La rutina leerá un byte de la vía de acceso 
(port) del RS232 a menos que el tiempo que deba esperar sea dema- 
siado largo o se pulse la tecla SPACE (ROM anterior) a BREAK 
(ROM nueva). En este último caso, puede producirse una ruptura 
de programa (Break into program). Si se ha leído un byte, el 
señalizador de acarreo quedará activado. 


2320 UT: envía un byte a través del RS232 
Para activarla: RST 8 

DEFB 1EH 
Entrada: Permitidas las interrupciones 
Salida: A = código del byte 
Registros: AF, BC, DE, HL 
Posición: XOC5AH/0DO7H 


Funcionamiento: Se envía un byte a través de la vía de acceso 
(port) con la velocidad correcta y siguiendo el protocolo necesario. 
Si se pulsa BREAK durante la transmisión, se producirá un error. 

Si se quiere utilizar el equivalente del canal «T» para realizar 
una salida a través del RS232, hay que emplear el código especial 
32H utilizado normalmente para llamar a XOC3CH (ROM anterior) o 
XOC3AH (ROM nueva). A debe contener el código del carácter que 
se desee enviar. La nueva ROM utiliza dos variables más del sis- 
tema cuando maneja canales «T»: 5CBOH para la posición del cursor 


. . o. q. 47 


respectivamente. 
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OPEN __R: abre un canal del RS232 


Para activarla: antigua ROM ROM nueva 
LD HL, 0B13H LD HL,0B17H 
LD (HD__11), HL LD(HD__11), HL 
RST 8 RST 8 

Entrada: Permitidas las interrupciones 

Salida: DE = inicio de la nueva área CHANS 

Registros: AF, BC, DE, HL 

Posición: X0B13H/0B17H 


Funcionamiento: Esta rutina crea un área de 11 bytes al final de 
CHANS para un canal «B» o «T». Normalmente creará un canal 
de tipo «T». En caso de que L__STR1 contenga una «B», se 
creará un canal de tipo «B». En la nueva ROM hay un código 
especial nuevo llamado OPEN__B,34H que abre un canal «B». 


Rutinas de la red 


El establecimiento de la red en el Spectrum tiene lugar mediante 
una continua conexión entre las vías de acceso (ports) de todas las es- 
taciones. Sólo se establece una comunicación cada vez y todos los da- 
tos se transmiten en serie. Los datos se subdividen en «paquetes» nu- 
merados. La longitud máxima de cada paquete es de .255 bytes. : 
Cada paquete se transmite de la siguiente manera: primero, el emi- 
sor comprueba si la red ya está ocupada y, en tal caso, espera. 
Cuando la red está libre, el emisor envía un encabezamiento com- 
puesto de 8 bytes (las variables del sistema NTDEST y NTCHS). 
En este encabezamiento se guarda información acerca de los datos 
que vendrán a continuación. Entre otras cosas vendrán los números 
del emisor y del receptor y dos sumas de control. A menos que esté 
realizando una emisión, la estación que envía el mensaje comprue- 
ba si le ha llegado una señal de reconocimiento del receptor. Esta 
señal es un solo byte que contiene el número de la estación re- 
ceptora. Si no se recibe este byte, se vuelve a transmitir el 
encabezamiento. En el caso de realizarse una emisión, no se 
espera la llegada de ese byte de reconocimiento y se envían los 
datos directamente. Luego se envía la sección que contiene los da- 
tos en sí la menos que no haya ningún byte en ella, es decir, 
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que NTLEN = 0). Hecho esto, se comprueba si se recibe un nuevo 
byte de reconocimiento (a menos que se trate de una difusión). Si 
este byte no se recibe, se repite el proceso volviéndose a trans- 
mitir el encabezamiento. Hay cuatro códigos especiales para em- 
plear la red aunque, desgraciadamente, uno de ellos no es utili- 
zable en la anterior ROM. 


OPEN_N: abre un canal temporal «N» 

Para activarla: RST 8 
DEFB 2DH 

Entrada: nada 

Salida: IX=DE=(CURCHL)= inicio del área 
“N” dentro de CHANS 

Registros: AF, BC, DE, HL 

Posición: XOEA9H /0F46H 


Funcionamiento: Antes de llamar a esta subrutina D__STR1 
tiene que contener el número del destinatario y NSTAT el del Spec- 
trum. Se crea al final del área CHANS un área de 256 bytes donde 
se almacenan los datos. El número del destinatario se pasa de 
D__STR1 a NCIRIS, el número de la estación emisora de NSTAT a 
NCSELF y el área que va de NCNUMB al último carácter de la 
memoria intermedia (buffer) se rellena con ceros. El canal se hace 
temporal estableciendo el bit 7 del indicador de canal. Se hace que 
la variable CURCHL apunte al principio del área que se acaba de 
crear. 

Para crear un canal permanente de la red se puede emplear el 
siguiente código (después de dar los valores adecuados a D__STR1 
y NSTAT). 


LD A,corriente 


ADD A,A 

LO HL,3C15H 

LD E,Á 

LD pb, 

ADD HL,DE sHi=posicion ade 
cuada dentra de 
STREMS 

PUSH HL salmacenarla 

RST 8 
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DEFB OPEN_N 


RES 7,(1X+4) 


sabrir un "pH" 
temporal 
shacerla perma- 
nente 


LD HL,<CHANS) 


EX DE,HL 
AND A 
SEC HL,DE 
INC HL 
POP DE 
EX DE,HL 
LDCHL>,E 
INC HL 
LD(AHL3,D 
RET 

CLOSE_N: 

Para activarla: 

Entrada: 

Salida: 

Registros: 

Posición: 


sHLi=desplazamien 
ta dentro de la 
corriente 

¡DE=posicion de 


STRMS 


salmacenar €el 
desplazamiento 
en STRIMZ 


cierra un canal «N» 

RST 8 

DEFB 2EH 

(CURCHL): inicio del área «N» dentro 
de CHANS 

Permitidas las interrupciones 

AF, BC, DE, HL, 1X 

X1A24H /1F18H 


Funcionamiento: Si el canal es un fichero de escritura (por ej., 
NCOBL < > 0) entonces el resto del contenido de la memoria in- 
termedia (buffer) se envía como un paquete marcado con EOF. 
Se libera entonces el área de 256 bytes. En el caso de que hubiera 
alguna corriente asignada al canal no será cerrada. El área «N» tiene 
que ser o bien temporal o bien la última área que hay en CHANS 
pues, de otra forma, pueden quedar perjudicadas otras corrientes 


y canales. 


WRITE__N: 


envía un paquete a través de la red 
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Para activarla: RST 8 


DEFB 30H 

Entrada: A=0 para datos, 1 para EOF, |X= ini- 
cio del área ““N” 

Salida: Permitidas las interrupciones, A = nú- 


mero del destinatario (Z «si se trata de 
una difusión) 

Registros: AF, BC, DE, HL 

Posición: X0DB2H/0E4FH 


Funcionamiento: Antes de llamar a la subrutina, las variables 
NCOBL y NCNUMB, el contenido de la memoria intermedia (buf- 
fer) y el del encabezamiento (excluidas las sumas de control 
«checksums») deben tener los valores adecuados. Al entrar en la sub- 
rutina, el acumulador contendrá normalmente el valor O o bien 
un 1 si el paquete es el último de su serie (es decir un indica- 
dor de fin de fichero). Este valor se almacena en NCTYPE y el 
color del borde de la pantalla pasa a ser el indicado por I¡OBORD. 
Se calcula la suma de control («checksum») de la información con- 
tenida en la memoria intermedia (buffer) y el valor obtenido se 
guarda en NCDCS. Igualmente, se pasa a calcular la suma de con- 
trol (“checksum'') de la información contenida entre NCIRIS y 
NCDCS guardándose en NCHCS. Se impiden las interrupciones y, 
luego, se envía el paquete. Cuando se ha recibido el paquete (si 
no se trata de una difusión) se pasa a incrementar el contenido de 
NCNUMB. Luego, se hace que el color del borde de la pantalla vuelva 
a ser el mismo de antes. Finalmente, se permiten las interrupciones. 


READ_N: Su supuesta misión es leer un paquete 
ae la red. 

Para activarla: RST 8 
DEFB 2FH | 

Entrada: IX = inicio del área «N» 

Salida: permitidas las interrupciones 

Registros: AF, BC, DE, HL 

Posición: X1A31H/1F25H 


Funcionamiento: Este código especial lee un paquete de bytes 
de la red. El señalizador de acarreo se desactiva si la lectura del 
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paquete se ha realizado correctamente. En caso contrario, se activa, 
pero, en la ROM antigua, se pierde el contenido de este señali- 
zador. 

La mejor forma de leer los caracteres de la red, como ya se dijo, 
es a través de la rutina INPUT (contenida en la ROM de 16 K), 
situada en la posición 15E6H. Recuerde conservar el valor de CURCHL 
si emplea cualquier otro canal entre llamadas sucesivas a esta rutina. 


Códigos especiales de objetivo diverso 


PAUSE: espera a que se pulse (o repita) una de- 
terminada tecla 

Para activarla: RST 8 
DEFB 1BH 

Entrada: nada 

Salida: Permitidas las interrupciones, A = có- 
digo de la tecla 

Registros: AF, BC, DE, HL 

Posición: X19D9H/1ECDH + 


Funcionamiento: Se permiten las interrupciones y cada 1/50 de 
segundo se llama a la rutina de exploración del teclado que está 
grabada en la ROM de 16 K. Este proceso se repite hasta que se 
pulsa una tecla. El valor de la tecla se extrae de LAST__K. 


PRINT: Imprime un carácter en la pantalla. 

Para activarla: RST 8 
DEFB 1CH 

Entrada: A = código del carácter, permitidas las 
interrupciones 

Salida: nada 

Registros: AF, BC, DE, HL, AF", BC”, DE” 

Posición: X19ECH /1EEO0H 


Funcionamiento: se da el valor FF a la variable SCR__CT para 
permitir el desplazamiento automático de la pantalla («scrolling»). 
Se abre la corriente FEH (canal «S») y, finalmente, se imprime el 


carácter. 
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LPRINT: imprime un carácter en la impresora ZX 


Para activarla: RST 8 
DEFB 1FH 
Entrada: A = código del carácter, permitidas las 
interrupciones 
Salida: nada 
Registros: AF, BC, DE, HL, A”F”, B”C”, DE” 
Posición: X19FCH /1EFOH 


Funcionamiento: La corriente 3 (normalmente el canal «P») se 
abre y se imprime el carácter. 


SCAN_K: explora la matriz del teclado 
Para activarla: RST 8 

DEFB 20H 
Entrada: nada 
Salida: NZ si se ha pulsado alguna tecla 
Registro: AF, BC, DE, HL 
Posición: X1A01H/1EF5H 


Funcionamiento: Se explora directamente el teclado y si se ha 
pulsado alguna tecla (incluidas las que se activan mediante SHIFT) 
se desactiva el señalizador Z. Las interrupciones no son necesa- 
rias. 


NEWVARS: crea las variables adicionales del sistema 
Para activarla: RST8 
DEFB 31H 
Entrada: nada 
Salida: nada 
Registros: AF, BC, DE, HL 
Posición: X19A8H / 1E98H 


Funcionamiento: si no existen aún las 58 variables del sistema adi- 
cionales (ver Apéndice A), se crean (si hay suficiente memoria). 
(De hecho la rutina tan sólo contiene la instrucción RET; la propia 
instrucción RST 8 crea las variables adicionales). 
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SHADOW: llama a cualquier rutina de la ROM adi- 


cional 

Para activarla: RST 8 
DEFB 32H 

Entrada: (HD__11) = posición 

Salida: nada 

Registros: sin especificar (depende de la rutina a 
que se llame) 

Posición: X19A4H /1E94H 


Funcionamiento: Se llama a la rutina a la que apunta HD__11. 
Aunque oficialmente reciba el calificativo de Reserved by Sinclair 
Research Ltd. (Reservado para futura ampliación por SRL (Sinclair 
Research Laboratories) éste es el código especial de mayor utili- 
dad de la ROM. Sólo se puede pasar a la subrutina el valor con- 
tenido en el registro Á pero, en cambio, devuelve todos los valores. 
Es posible emplear este código especial, incluso, para terminar la 
paginación del BASIC del ROM. Esto se consigue con el siguiente 
código: 


¿LD HL,PAGOUT 
¿LD (HD_11>,HL 


¿RST 8 
¿DEFB 32H 
PAGOUT:POP HL ¿sacar OZonH 
de la pila 
¿POP HL ¡sacar PAGOUT 
de la pila 


sresta del 
programa 


Resumen de los códigos especiales 


En este resumen se lista cada código especial, su posición dentro 
de la ROM adicional así como la función que realiza. 


Código Nombre Posición Función 


18 PAUSE 19D9/1ECD Espera a que se pulse una te- 
cla. El valor está en A 
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Código 
10 


1D 


1€ 


1F 


*2B 
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Nombre 


PRINT 


232 IN 


2320UT 
LPRINT 


SCAN__K 


MOTOR 
OPEN__M 
CLOSE_M 


ERASE_M 
READ__NP 


WRITE_S 


READ__P 
READ__R 
READ_S 
WRITE_R 


MAKE_M 
RECLAIM 


OPEN__N 
CLOSE_N. 


Posición 


19EC/1EEO 


0B81/0B88 


0C5A/0DO07 
19FC/1EFO 


1A01/1EF5 


17F7/1532 
1829/1805 
12A9/138E 


1D6E/1D79 
1A09/1EFD 


11FF/12DA 


1A17/1F0B 
144B/1F3F 
1486/1F7A 
1491/1F85 


— —/10A5 
10C4/119F 


OEA9/0F46 
1424/1F18 


Función 


imprime CHR$ A en la co- 
rriente FE (la pantalla) 

La entrada que viene del RS 
232 va al registro A. Se acti- 
va el acarreo si el carácter 
es válido 

Salida por RS232. Código del 
carácter en A 

Imprime CHR$ A en la co- 
rriente 3 (la impresora) 
Explora la matriz del teclado 
(NZ si se pulsa cualquier te- 
cla) 

Conecta o desconecta los mo- 
tores de los Microdrives 
Abre un canal «M» temporal 
Cierra un canal «M» 

Borra un fichero del cartucho 
Lee la siguiente memoria in- 
termedia (buffer), de tipo 
PRINT 

Envía el contenido de la me- 
moria intermedia (buffer) 
«M» al cartucho 

Lee la memoria intermedia 
(buffer) de tipo PRINT 
Búsqueda en un. fichero di- 
recto 

Búsqueda en un fichero se- 
cuencial 

Escribe un bloque directa- 
mente 

crea un área de tipo «M» 
Libera un área «M» de 595 
bytes 

Abre un canal «N» temporal 
Cierra un canal «N» 


Código Nombre Posición Función 


*2F READ__N — —/1F25 lee un paquete de la red 
30 WRITE__N 0DB2/0E4F Escribe un paquete de la red 
31 NEWVARS 19A8/1E98 Crea nuevas variables del sis- 


tema si es necesario 
32 SHADOW 19A4/1E94 Llama a la rutina de la ROM 


adicional direccionada por 


HD__11 

*33 SCAN__M — —/1FE4 lee el siguiente encabeza- 
miento de cartucho 

*34 OPEN__B — — /1FFG abre un canal «B» 


* significa «únicamente para la nueva ROM» 


Notas 


Cuando se programa en código máquina con el Interface hay 
que tener en cuenta una serie de consideraciones: 


i) La función USR sólo se debe utilizar dentro de sentencias LET 
o RANDOMIZE. Si se utiliza en las sentencias del BASIC exten- 
dido, y se produce un error, la ROM adicional puede afectar 
fatalmente al sistema. 

li) Hay que tener muy en cuenta el estado de las interrupciones al 
entrar o salir de ciertas rutinas de la ROM adicional. Antes de 
volver al BASIC deben PERMITIRSE las interrupciones. 

111) Si se utilizan las rutinas del Microdrive hay que conservar el valor 
del registro H**L” si se va a volver al BASIC. 

iv) Nunca hay que utilizar cartuchos importantes cuando se esté 
procediendo a la depuración de rutinas de Microdrive. Puede 
resultar bastante molesto formatear accidentalmente el cartucho 
que contenga todo nuestro código original. Las lengúetas de 
protección contra escritura no garantizan una seguridad completa 
ante errores de código máquina graves. 

v) Hay que asegurarse de que se han creado las variables adiciona- 
les del sistema con el código 31H. 

vi) No hay que utilizar sentencias REM en las rutinas del Interface. 
La creación de áreas CHANS las desplazaría por el mapa de 
memoria afectando fatalmente al sistema. 
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Capítulo 9 


INCLUSION DE NUEVAS 
INSTRUCCIONES EN BASIC 


Así como el Interface 1 añade nuevos comandos al BASIC ex- 
tendido del Spectrum, también el usuario puede añadir los suyos. 
Esta es una posibilidad muy interesante que se encuentra en muchos 
otros ordenadores pero que siempre había faltado en los de la gama 
Sinclair. La razón principal que explica esta omisión es que, hasta 
ahora, todos los comandos del Spectrum tenían que ser palabras 
clave. Otra razón es que no había espacio libre suficiente en el con- 
junto de caracteres del Spectrum para añadir, nuevos comandos. Lo 
que hace el Interface 1 es aportar la opción de saltar a un programa 
adicional en código máquina si se encuentra un error de sintaxis en 
una línea ya sea en el momento de introducirla ya sea en el mo- 
mento de ejecutarla. 

De esta forma, se puede cambiar la sintaxis de la mayoría de los 
comandos existentes para que realicen otra función a pesar de que 
los comandos del Interface no pueden cambiarse. Existen varios mé- 
todos de añadir nuevos comandos que no sean del Interface. 


1) Insertar caracteres en lugares extraños, por ejemplo COPY + 

2) cambiar el tipo de los parámetros, por ejemplo, POKE 30000, 
00) 

3) añadir parámetros, por ejemplo, PLOT x,y, “BANG”: 

4) eliminar parámetros, por ejemplo, CIRCLE 10,30 

5) utilizar funciones del modo E, por ejemplo, LINE 10,30 


El usuario puede también utilizar sus propios comandos con to- 
das sus letras siempre que vayan precedidas de un carácter 'no alfa- 
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bético (por ejemplo !REPETIR). Es necesario colocar ese carácter no 
alfabético para que, cuando se introduzca esa línea, el Spectrum sal- 
ga del modo K. 

Las palabras clave cuya sintaxis normalmente no se puede al- 
terar son LOAD, SAVE, MERGE, VERIFY, CAT, FORMAT, OPEN, 
CLOSE, CLS, CLEAR y MOVE. Digo «normalmente» porque, de he- 
cho, se pueden alterar si a usted no le importa realizar un poco de gim- 
nasia con los dedos cuando las teclee. La forma de modificarlas es pre- 
cediéndolas de un carácter que requiera el empleo de la tecla SHIFT, 
por ejemplo, **”. Esto significa que las palabras clave deben intro- 
ducirse tecleando primero la palabra, haciendo luego «cursor hacia la 
izquierda», tecleando después *”**”, haciendo «cursor hacia la dere- 
cha» y luego introduciendo el resto de la línea. 

Para crear sus propios comandos debe usted tener buenos cono- 
cimientos del lenguaje máquina y del sistema operativo del Spectrum. 
En la segunda parte de este capítulo se explican los métodos a utili- 
zar por parte de los lectores que ya posean ese nivel de conocimien- 
tos. La primera parte del capítulo contiene un programa que altera la 
sintaxis de los comandos de Microdrive más corrientes, programa que 
puede ser introducido y utilizado por cualquier usuario. 

Para indicarle al Interface que se han añadido nuevos comandos 
a los ya existentes se tienen que hacer dos POKEs que necesa- 
riamente deben ir en una línea múltiple, es decir, de varias senten- 
cias. No debería hacerse esto cuando, después de haber hecho NEW, 
no se ha efectuado aún ninguna operación del Interface. Lo más 
sencillo es hacer CLOSE +* que, en realidad, es una instrucción sin 
efecto. Para hacer que el Interface vuelva a trabajar únicamente con 
comandos normales, se necesita: 


FOKE 23732,290: FOKE 22/=36,1 


igualmente en una sola línea. 

Tengo que admitir que no me gusta demasiado la sintaxis utili- 
zada para almacenar y cargar programas en o desde un Microdrive. 
Bajo mi punto de vista, se trata de una sintaxis innecesariamente 
complicada que requiere una cantidad excesiva de pulsaciones. Por 
este motivo escribí el siguiente programa que añade nuevos coman- 
dos para realizar las mismas operaciones. Todos ellos tienen el mismo 
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formato. Después de un asterisco se escribe una letra (mayúscula o 
minúscula) que identifica al comando correspondiente y después se 
añaden algunos detalles. Para cargar un programa llamado «test» 
desde la unidad de cartucho número 2 el nuevo comando sería 
*L”2test” que equivale a LOAD*"”m””; 2;”test”. De forma similar, 
SAVE*“m”, VERIFY y MERGE se sustituyen por *S, *V y *M 
seguidas de una sola cadena. La primera letra de ésta tiene que ser 
el número de la unidad de cartucho. Otro de los comandos que se 
añaden es la *C que equivale a CAT 1. Si después de *C se coloca 
otro número, se pueden obtener los catálogos de las otras unidades. 
El último comando que he añadido es la *run con la que se carga 
desde la unidad 1 un programa llamado «run». Es equivalente a NEW 
seguido de RUN. 


Listado de los comandos adicionales 


10 REM ARAHAL 
20 REM * AMPLIAR LA SINTAXIS + 


* DEL MICEODRIVE * 
30 REM AER rrLAEA EA EAEEAAN 
40 REM PARA 14K 


50 CLEAR 45149: REM 32401 
£0 LET ex=55170: REM 32402 
65 LET x2=INT (Cex+1243-206): 
LET x1i=ex+124-20ó6*x2 
Z0 RESTORE 200: LET c=Ú 
SO FOR ¡=ex TU ex+174 
0 READ a: LET c=c+a 
100 POKE ¡,a 
110 NEXT 5 
113 IF cx 2200 3+2*t0x1+tx22 THEN 
PRINT "ERROR EN SUMA DE CONTROL 
"* STOP 
120 CLOSE +0Uu 
130 POKE 23723,ex-206*INT (exsz2 
D6):1: POKE 23736, 1INT 1exr206) 
190 PRIMT "NUEVAS IMSTRUECIONES 


150 PRINT "*L LOAD"""*3 SANE"*" 
2M MERGE" "*"*U UERIFY" 
140 


150 PRINT 


170 STOP 
200 DATA 
2,Ú 

210 DATA 
54,108 
220 DATA 
9,109 

220 DATA 
114 

290 CATA 
24,238 
230 DATÁ 
¿203 

260 DATA 
163,8 

270 DATA 
¿233,202 
280 DATA 
22,54 

270 DATA 
300 DATA 


310 DATA 


320 DATA 


*C CAT no. tt >= 1 


254,92,194,290,1,215,3 


há 
Fa 
O 
QA 
PI 
NA 
(YN 
SS. 
he 
pe 
Qn 
Ss 
a) 
Pl 
20 
PR 


1,25,594,0,25,54,2,215 
32,0,254,13,90,7,259,5 


e e, a e, . ad sm. 
30 3 = z ZO 1 SU 2 £y 1 25 L] 1 £'y 3 


215,32,0,246,232,254,11 


5 

330 DATA 390,0,215,32,0,246,32,2 
54 

340 DATA 110,32,244,215,32,0,20 
5,183 

350 DATA 5,175,1949,10,62,77,50, 
217 

380 DATA 72,215,232,0,215,140,28 
1215 

370 DATA 24,0,223,202,25,7,215, 
241 | 

380 DATA 43,33,11,0,147,2237,66, 


370 DATÁ 
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400 DATA 214,95,254,1,56,27,259 
5 

q 

410 DATA 48,23,50,214,72,175,50 


1215 

420 DATA 92,11,19,2237,67,218,72 
, 237 

43% DATA 83,220,92,215,24,0,195 
,35 


440 DATA 7,231,4 


Creo que estos nuevos comandos son mucho más fáciles y rá- 
pidos de utilizar y he guardado el programa bajo el nombre de 
«run» en el cartucho que utilizo principalmente para desarrollo de 
programas. Cuando se introduzca este programa habrá que cambiar 
las líneas 50 y 60 para que cambien la nueva posición de RAMTOP 
y la posición de memoria donde debe ir el programa. Las posiciones 
recomendadas para este programa son incompatibles con las que se 
han recomendado para otras rutinas de este mismo libro. Si se desea 
que sean compatibles habrá que añadir las líneas: 


30 CLEAR 695779: REM 31809 PARÁ 
16K 

60 LET mc=49530: REM 31810 PAR 
A 16K 


Haciendo NEW se impedirá la utilización de los comandos adi- 
cionales recién creados por el usuario. Por tanto, es necesario prepa- 
rar un fichero de programas vacío con el nombre de «new». Enton- 
ces, para borrar el programa en ejecución mientras se mantiene la va- 
lidez de los nuevos comandos será necesario hacer: 


*L"1NEU" 


Cómo se añaden nuevas instrucciones 


Esta parte del capítulo está dirigido a los programadores en có- 
digo máquina. Resulta útil disponer de un cierto conocimiento del 
sistema operativo del Spectrum (con este fin recomiendo el libro 
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del Dr. lan Logan «The Complete Spectrum ROM Disassembly» cu- 
yas etiquetas de las rutinas de la ROM de 16 K he utilizado aquí). 

La variable VECTOR de la posición 5CB7H es vital para utilizar 
los comandos creados por el usuario. Normalmente esta variable 
contiene el valor 01FOH que es una posición de la ROM adicional 
que ejecuta la rutina normal de gestión de errores (después de co- 
piar de nuevo CHADD__sobre CH__ADD). 

Para explicar cómo se puede alterar la variable VECTOR hay que 
conocer primero las acciones que realiza la ROM adicional cuando se 
produce un error. Los números entre paréntesis se refieren a las po- 
siciones de la ROM en hexadecimal. 

Primero, se hace que el par de registro HL contenga la direc- 
ción de retorno (0013) (desde RST 8) y se comprueba si es 0000 
Ó 15FE. Si es 0000 significa que se ha llamado desde la ROM adi- 
cional una rutina que está en los 16 K de ROM normales. Si es 15FE 
significa que se ha pedido un canal del Interface. Si no es ninguno 
de esos dos valores, se crean las variables del Interface (si aún no 
se habían creado) y se envían algunas señales a la ULA que hay en 
el interior del Interface. Se ve entonces cuál es el número del error 
(00C7) (del byte que sigue al RST 8) y se comprueba si se trata de 
un código especial o no. En el caso de que no se trate de un código 
especial, se comprueba si el error es del tipo Sin sentido en BASIC 
(Nonsense in BASIC) Nombre de fichero incorrecto (Invalid 
filename) o Corriente incorrecta (Invalid stream). Si el error no 
era ninguno de estos tipos, entonces se utiliza la rutina de gestión 
de errores guardada en la ROM original (00F8). En el caso de que se 
tratara de alguno de los errores anteriormente mencionados se copia 
el contenido de CH_ADD sobre CHADD__ (¡Vaya mnemónicos 
tan propensos a la confusión que se han escogido!). Se comprueba 
el estado del bit 3 de FLAGS3 y, si está activado, se recurre a la 
rutina normal de gestión de errores. Después de calcular cuál es el 
primer carácter de la línea en que se ha producido el error (0126-01E9) 
se compara con las palabras especiales del Interface (01B5-01E9). Si 
no se trata de una palabra especial, se salta a la rutina a la que apunta 
la variable VECTOR. Normalmente, se produce un error al hacer esto 
pero, si se cambia el contenido de VECTOR, se pueden añadir co- 
mandos que superen todos los pasos de comprobación de la correc- 
ción de la sintaxis. 
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Por tanto, si se ha cambiado el contenido de VECTOR para que 
apunte a una de nuestras rutinas adicionales ¿qué debe hacer ésta? 
Primeramente debe comprobar cuál es el contenido del registro A. 
Hay que ver si contiene la primera palabra especial o código de ca- 
rácter del comando adicional creado por el usuario (tiene que ser me- 
nor que 206). Si no se reconoce el contenido de A como indicador de 
una de esas dos posibilidades, hay que saltar a la posición 01FOH 
(JP 01FOH) para que se produzca un error. En caso de que se haya 
producido un reconocimiento positivo hay que saltar a la rutina que 
se encarga de comprobar la sintaxis del comando, evaluar los pa- 
rámetros que contenga y ejecutarlo (esto último únicamente en tiem- 
po de ejecución). Hay que tener presente un par de cosas al escribir 
este tipo de rutinas: 


1. Por paginación, ocupa el espacio de memoria la ROM adicional 
y no los 16 K del BASIC. 

2. Todos los «restarts» del Z80 son distintos. 

3. NO hay que intentar emplear los códigos especiales: hay que 
llamar a las rutinas directamente. 

4. Incluso cuando se permiten las interrupciones, no se explora 
el teclado ni se incrementa el contenido de FRAMES. 


Los distintos RST («restarts») de la ROM adicional hacen lo 
siguiente: 


RSTO: desactiva FLAGS3 y retorna a la ROM de 16 K 

RST8: — noutilizarlo nunca. 

RST 10: llama a las rutinas de la ROM de 16 K. Está seguido de 
los dos bytes de datos con que se identifica la posición 
de la rutina. 

RST 19: hace BIT 7, (FLAGS), da Z si se está realizando una com- 
probación de sintaxis y NZ si se está en ejecución. 

RST.20: realiza un error de la ROM adicional. Va seguido de uno 
de los siguientes bytes: 


FF. Programa terminado 00E7 
00 Sin sentido en BASIC 0139 
01 Número de corriente incorrecto 0663 
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02 Expresión incorrecta de dispositivo 062D 


03 Nombre incorrecto 064C 
04 Número incorrecto de unidad de cartucho 0681 
05 Número incorrecto de estación O5F6 
06 Falta nombre 068D 
07 Falta el número de la estación 06A1 
08 Falta el número de la unidad de cartucho 0683 
09 Falta especificar la velocidad en baudios 06B7 
DA Error de concordancia en el encabezamiento (nunca se 
utiliza en la 
ROM) 

0B Corriente ya abierta 052F 
OC Escritura sobre un fichero de lectura 0D78 
0D Lectura de un fichero de escritura 0D1C 
OE Unidad de cartucho protegida contra 

escritura 128D 
OF  — “Microdrive lleno 1219 
10 Microdrive inexistente 1828 
11 Fichero no encontrado 1A3 
12 Código de error especial 1985 
13 Error de CODE 092E 
14 Error de MERGE 07D8 
15 La verificación ha fallado 0930 
16 Tipo incorrecto de fichero 0902 


(las direcciones en hexadecimal son a las que se debe saltar 
para producir cada uno de los errores reseñados). 


RST 28: realizar un error de la ROM de 16 K. Cargar la variable 
ERRNR con el código de mensaje de error correspon- 
diente antes de realizar el RST. 

RST 30: crear las variables del Interface si aún no existen. 

RST 38: permitidas las interrupciones (por esta razón no se explora 
el teclado). 


Rutinas de exploración de lineas 


Cualquiera que sea el comando que se añada, será necesario 
explorar una línea de BASIC ya sea para ejecutar el comando o 
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para comprobar su sintaxis. La rutina creada por el usuario será 
llamada dos veces por cada una de las líneas entradas: una cuando 
se compruebe la sintaxis y otra cuando se proceda a la ejecución. 
Para saber en qué paso se está hay que utilizar RST 18. 

En la ROM original hay muchas rutinas de exploración de líneas 
que pueden ir perfectamente para este fin. Se utilizan mediante 
RST 10. Para explorar la línea carácter a carácter se deben utilizar 
las siguientes rutinas de la ROM original: 


GET__CHAR 0018H: el registro A contiene el byte que se es- 
tá tratando dentro de una línea. 
NEXT__CHAR 0020H: El registro A contiene el siguiente byte 


de la línea (se obtiene el siguiente byte 
prescindiendo de códigos de control y 
de los espacios) 


Las rutinas principales para realizar una evaluación son: 


CLASS__061C82H: comprueba/evalúa un parámetro numé- 
rico y pone el valor en la pila del cal- 
culador si se está en tiempo de ejecu- 
ción; en otro caso, inserta en la línea 
algunos bytes invisibles. 

CLASS__0A1C8CH: comprueba/evalúa un parámetro de ti- 
po cadena y pone el valor en la pila del 
calculador si se está en tiempo de eje- 
cución. 


Al entrar en las dos últimas rutinas CH__ADD tiene que apun- 
tar al primer carácter de la expresión. Al retorno de la subrutina 
CH_ADD apunta al primer carácter «fuera de sitio». El registro 
A contiene el código correspondiente a este carácter (por ejem- 
plo «,»). 

También hay en la ROM adicional algunas rutinas de explora- 
ción que pueden llamarse directamente. 


PARAMS 4 0701: la rutina que comprueba los parámetros 
de LOAD, SAVE, etc. Todos los pará- 
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metros se pasan a D__STR1, N__ 
STR1, S_STR1, L_STR1 y las va- 
riables comprendidas entre HD__00 
y HD__11 en tiempo de ejecución. 


EVALBC 061€: evalúa un número de 16 bits que se re- 
torna en el registro BC y en D__STR1. 
CHKEND * 05B7: comprueba si se llega al fin de una sen- 


tencia. Si no ocurre esto, se produce 
un errar. Si se llega al final de la sen- 
tencia, se ejecuta una instrucción RET 
en tiempo de ejecución. Si no se está 
en tiempo de ejecución, la dirección de 
retorno se elimina y el control se de- 
vuelve a la ROM de 16 K a través 
de 05C1. 

CHKDRV 066D: Comprueba si el contenido de D__ 
STR1 es un número comprendido entre 
el 1-8. En caso de que el número no 
esté entre esos dos se produce el error 
Número de unidad no válido (Inva- 
lid drive number) 

CHKSTS$ 062F: Evalúa una cadena. Si se está en tiempo 
de ejecución, se comprueba si su longi- 
tud es inferior a 11 caracteres y se al- 
macenan los parámetros en las posicio- 
nes que van de N__STR1 y T__STR1. 


Una vez se ha comprobado toda la sintaxis y ha resultado co- 
rrecta, se realiza un salto a O05C1H (a menos que se realice un re- 
torno indirecto a través de CHKEND). Cuando se ha ejecutado un 
comando sin problemas, se debe realizar un salto similar. Se borra 
la pila y el código de error y se retorna a la ROM DE 16 K. 

Como se puede ver, añadir nuevos comandos es una tarea di- 
fícil pero que vale la pena. Abre las puertas del Spectrum a todo 
tipo de programas de utilidad y ofrece la posibilidad de emplear 
el editor de líneas del BASIC para entrar líneas para otros lenguajes 
o ensambladores. 

Lo que viene a continuación es el listado correspondiente a los 
comandos adicionales introducidos en la primera parte del capítulo. 
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Este listado no es independiente de la posición de carga ni se 
coloca de nuevo por sí mismo: el cargador del BASIC altera todos 
los bytes de las instrucciones «CALL» a medida que los va car- 
gando con instrucciones POKE. 


0010; 


0030 
0040 
0050 
0050 
0070 
0080 
0090 
0100 
110 
0120 
0130 
0140 
0150 
0140 
0170 
0180 
0190 
0206 
0210 


0220 
0230 
0240 
0250 
0250 
0270 
0.280 
0290 
0300 
0310 
0320 
U330 
0340 
Ús;30 
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ERRUR 


SAVE 


LOAD 
DOIT 


VERIF 


MERGE 


CAT 


VECTOR PARA CAMBIAR SINTAXIS 


ORG 400600 

CP ICH 

JP. — NZ,01FOH 
RS3T — 10H 

DEFW 0020H 

OR 20H 

CP MNgu 

JR Z,SAVE 

CP m ú 

JR Z,LOAD 

CP M1 

JR 2, VERIF 
CP pr 

JR 2, MERGE 
CP UEM 

JR 2,CAT 

CP Y pa 

JR Z,RUN 

JR ERROR 

SET 5,11Y+12d) 
CALL VARS 

JP 0836H 

SET 4,(1Y+124) 
CALL VARS 

JP US83H 

SET 7,(1Y+124) 
JR DOIT 

SET 6,(1Y+124) 
JR DOITT 

LD HL,5CDéH 
io AA 

IM HL 

LD XHL>,0 


ORIGEN DE DEPURACION 
COMPROBAR PARÁ "x"-206 
ERROR SI NO ES "e" 


LLAMAR Á NEXT-CHAR 
CONVERTIRLO EN MINUSCULAS 


SALTAR 51 "5" 0 "S" 
SALTAR $1 "1" 0 "L” 
SALTAR S1 "v" 0 "Y" 
SALTAR S1 "m" 0 "mM" 
SALTAR 51 "c" 0 "C" 
SALTAR SI "r* 0 "R" 


EN CASO CONTRARIO REALIZAR 
UN ERROR 

INDICAR SAVE 

EVALUAR LA CADENA 

REALIZAR EL SAVE 

INDICAR LCAD 

EVALUAR LA CADENÁ 

REALIZAR LOAD/VERIFY/MERGE 
INDICAR VERIFY 

REALIZARLO 

INDICAR MERGE 

REALIZARLO 

HL=D_5TR1 

ASIGNARLE LA UNIDAD 1 


PONER A CERO EL BYTE ALTO 
DE D_STRI 


03650 
0370 
0330 
0370 
0400 
0410 
0420 
0430 


0430 
0450 
0950 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0530 
0550 
0360 
0570 
0580 
050 
000 
0510 


0420 


0430 
0440 
0450 
040 
03570 
04S0 
0690 


4-00 
0710 


0720 


Cara 
RUN 


ERRE 


VARS 


INC 
LD 
REST 
DEFIN 
CP 


DEFI 


LD 


0020H 
13 
¿¿CATZ 
"5 


2,CAT2 


0SiEH 
0487H 
10H 
0020H 
20H 

5" U M 
N2,D028H 
10H 
0020H 
20H 

” fñ M 
NZ,ERRZ 
10H 
0020H 
05SB7H 
UA9SH 

AL cm" 
(SCD, A 
10H 


-—D0020H 


10H 


1C8CH 


10H 
0018H 
18H 
2,0723H 


10H 
Z¿BF1H 


HL, 11 


ASIGNARLE LA CORRIENTE 2 
LLAMAR A NEXT-CHAR 
SALTAR SI NEWLINE 

SALTAR SI SE TRÁTA DE UN 
SEPARADUR 

EVALUAR UN NUMERO 
REALIZAR UN CAT 


LLAMAR A NEXT-CHAR 
CONVERTIR EN MINUSCULA 


ERROR SI NO ES "u* 


LLAMAR A NEXT-CHAR 


ERROR 51 NO ES *n” 
LLAMAR Á NEXT-CHAR 
LLAMAR. A CHKEND 

CARGAR EL PROGRAMA "RUN* 


L_STRi="29” 
LLAMAR A NEXT_CHAR 
LLAMAR CLASS DAL CADENA) 


LLAMAR A GET_ZCHAR 
COMPROBAR LA SINTAXIS 
SALTAR LO SIGUIENTE SI] 
SOLO SE COMPRUEBA LA 
SINTAXIS 


LLAMAR A STK_FETCHEBC= 
LONGITUD, 
DE=INICIO) 
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0730 AND A 

0740 SBC— HL,BC 

0750 JP. C,063CH ERROR SI ES MAYOR DE 11 
CARACTERES 

0740 LD  A,B 

0770 OR € 

0780 JP. 2,06439CH ERRGUR SI ES UNA CADENA 
NULA 

0790 LD A,%DE) A=C0DIGO DEL PRIMER 

CARACTER 

0800 suB "o" A=NUMERO DE LA UNIDAD 

0810 CP 1 

0820 JR C,INUDR ERROR SI «1 

0830 CP. 9 

0840 JR NE,INVUDR ERROR SI >8 

0850 LD “(S5CD6H),A ALMACENAR EL NUMERO EN 
D_STRI 

08640 XOR A 

0870 LD (5CD?H>),A BORRAR EL BYTE ALTO DE 
D_STRI 

0880 DEC. BC DECREMENTAR LA LONGITUD 

089( INC— DE INCREMENTAR LA POSICION 

| INICIAL 
0900 LD “¿5CDAH), ALMACENAR LA LONGITUD 
BC 
0910 LD C(SCDCH), ALMACENAR EL INICIO 
DE 

0920 RST 10H 

0930 DEFI 0013H LLAMAR A GET_CHAR 

0940 JP. —0723H COMPROBAR LOS ARGUMENTOS 
Y RETORNAR C(RET> 

0950 INYDR  RST 20H REALIZAR OTRO ERROR 

0940 DEFB 4 BYTE PARA NUM. DE UNIDAD 


NO VALIDO 


Como puede comprobarse, he saltado a algunas posiciones extra- 
ñas de la ROM adicional. No hay que realizar llamadas a estas 
posiciones mediante el código especial 32H puesto que utilizan las 
rutinas de exploración de líneas y retornan al BASIC (y no al código 
máquina que las ha llamado). 
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APENDICES 


Apéndice A 


LAS VARIABLES DEL SISTEMA DEL 


INTERFACE 


Los siguientes 58 bytes se insertan en el mapa de memoria jun- 
to a las variables normales del sistema, desarrollando las funciones 


que se detallan: 


Decimal Hex Nombre 


23734 5CB6 FLAGS3 


23735 5CB7 VECTOR 


23737 5CB9 SBRT 


23747 5CC3 BAUD 


Utilización 

bit O: activado mientras se realiza un co- 

mando extendido 

bit 1: activado cuando se hace CLEAR + 

bit 2: activado al cambiar ERRSP 

bit 3: activado al utilizar la red 

bit 4: activado al hacer LOAD 

bit 5: activado al hacer SAVE 

bit 6: activado al hacer MERGE 

bit 7: activado al hacer VERIFY 

Utilizado para ampliar el intérprete. 

Normalmente 01F0. 

Rutina utilizada por la ROM adicional 

para llamar a las rutinas de la ROM 

normal que tengan la forma: | 

LD, HL, valor 

CALL rutina 

LD(5CBAH), HL 

RET 

velocidad del RS232 en baudios. Inicial- 

mente 000CH (aproximadamente 19200) 

(3500000/26* [vel. en baudios]) — 2 
153 


23749 
23750 


23751 


23753 


23795 


23757 


23758 
23759 
23760 
23762 
23763 
23764 
23765 


23/06 


23768 
23769 
23770 
23772 
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5CC5 
5CC6 


5CC7 


5CC9 


5CCB 


5CCD 


5CCE 
5CCF 
5CDO 
5CD2 
5CD3 
5CD4 
5CD5 


5CD6 


5CD8 
5CD9 
5CDA 
5CDC 


NTSTAT 
IOBORD 


SER__FL 


SECTOR 


CHADD__ 


NTRESP 


NTDEST 
NTSRCE 
NTNUMB 
NTTYPE 
NYLEN 
NTDCS 
NTHCS 


D__STRIÍ 


S_STRI 
L__STRI 
N__STR1 
T__STRI 


Número de estación de la red (1-64) 
Color del borde de la pantalla durante 
operaciones de Entrada/Salida 

Area de trabajo del RS232: el primer 
byte es un señalizador, el segundo el 
carácter introducido. 

Area de trabajo del Microdrive. Se utili- 
za normalmente para contar sectores, 
empezando por FFH ó 04FBH. 
Almacenamiento temporal de CH__ADD 
mientras se realiza una comprobación 
de la sintaxis extendida de líneas. 
Código de respuesta de la red —núme- 
ro de la estación receptora-—- el recono- 
cimiento inicial del encabezamiento de 
8 bytes de la red. 

Número de la estación de la red que es 
la destinataria. 

Número de la estación de la red emisora 
Número del bloque de la red (0-65535) 
Código de tipo del encabezamiento de la 
red (0: datos, 1: EOF) 

Longitud del bloque de datos de la red 
(0-255) 

Suma de control («Checksum») del blo- 
que de datos de la red 

Suma de control del encabezamiento de 
la red (de NTDEST a NTDCS) 

Inicio del identificador de fichero (8 «by- 
tes), número de unidad (2 bytes), (1-8), 
número del destinatario o velocidad en 
baudios 

Número de corriente (0-15) 

Identificador del canal (mayúsculas) 
Longitud del nombre del fichero 

Inicio del nombre del fichero (normal- 
mente en el área de trabajo) 


23774 5CDE 
23782 5CE6 
23783 5CE7 
23785 5CE9 
23787 5CEB 
23789 B5CED 
23791 BCEF 
Notas: 


D__STR2 


HD__00 


HD__0B 
HD__0D 
HD__0F 


HD_11 


COPIES 


Inicio del segundo identificador de fi- 
chero (8 bytes) 
Tipo del fichero: 0. programa 
1. conjunto numérico 
2. conjunto de cadenas 
3. bytes 
Longitud de los datos 
Inicio de los datos 
Longitud del programa (o nombre del 
conjunto) 
Número de línea para autoiniciación 
puesta en marcha (también empleado 
por el código especial 32H) 
Número de copias múltiples realizadas 
por SAVE. Toma el valor 1 después 
de un SAVE. 


FLAGS3 toma normalmente el valor cero cuando la ROM adi- 


cional sale, debido a la paginación, del espacio de memoria. Pue- 
de direccionarse mediante IY + 124. 


mediante POKEs. 


Los parámetros de la rutina SBRT se pasan a la ROM adicional 


La instrucción de retorno (RET) va siempre a la posición 8 pero 


siempre hay un 0000 en la posición siguiente de la pila para distin- 
guir cuándo se trata de un error. 


Las variables de nombre HD__00 a HD__11 se extraen de 


las variables equivalentes utilizadas por las rutinas de cassette de 
la ROM original y se direccionan mediante IX + 0 a IX + 11H, 
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Apéndice B 
LISTADOS EN ENSAMBLADOR 


En este Apéndice se encuentran los listados en Ensamblador del 
280 de las rutinas utilizadas a lo largo del libro. Están basadas en ori- 
ginales creados mediante el ensamblador «Picturesque Editas» que 
indica los números en hexadecimal poniendo tras ellos una «H». Los 
números de línea los utiliza el Ensamblador y no tienen aquí signifi- 
cado algunc. Se han incluido comentarios en la parte derecha del lis- 
tado. Todos los «ORG» son arbitrarios puesto que la mayoría de las 
rutinas son independientes de la posición o se sitúan de nuevo a 
sí mismas. En el caso de que una rutina sea auto-reubicable, el re- 
gistro BC contiene su dirección inicial. 


Corriente 14-z$ 


Con esta rutina se crea un nuevo canal «Z» y se asigna a la co- 
rriente 14 que se supone está cerrada. También hay que suponer 
que ya se han creado las 58. variables. adicionales del sistema. Por 
esta razón, se incluye el comando CLOSE A en el cargador del 
BASIC pues se encarga de realizar todas estas. operaciones. 


2010 . SPRINT RUTINA DE CADENA" 


nus0 : "RUTINA: PARA” HACER: QUE” 

40 : "414 INSERTE CARACTERES 
EN 25" | 

uso ; "Co A.PENNELL 1983" 

PES Prado Eu LS on 

MIU Lars EQU 204B8H 
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Ch 
o 
IA] 


SEG Ea 
0) La e br 
Un] 2] Y | 
O a TA 


GC 


4210 
0220 


paa 


O A 


A E 


Qi 
Ga 1 


“dl Cra cn Fa (ao 
[ca 


<Q 00 
O E 


al] 
Oo sc 


(Oc 
Lat (0 
he 


a 

UN 

2 
oa ) 


O y E NS 


A 
adn 
E 


ul E ol E tn 
Caca Ed) 


a] 
Gh Cor Cad A 


0370 


0380 


INICIOLO 


DEL 


cut 


INC 
LD 
IMC 
EX 
LO 
ADD 
LD 
LDIR 
PP 


1NC 


ME 
ant 
SEE 


Lo 


Orb ¿20000 

HL, PROG) 

HL HL=PROG-1=FIN DE CHáns 

eL SLMACcENAR (SAME) LA DIREZEL- 
CIOm DE INICID EN LA Fils 

HL ALMACENAR (SAUE) EN LA El 
LA El INICIO CEL AREA Dlis: 


PADÁ POR LOS MUEVOS DATOS 
2,11 SON NECESARIOS 11 E7TES 
LÉON LLAMAR 4 MAReE-RO00M 
LE DE=NUENO FÚUNTO DE INICISU 


De BATOS 
Hi, LARSAL-INICIO 
EL SACAR INICIO DE LA PILA 
Hi, BL HL=CARSAL 
DE ALMÁCENSR ¿SAE) El 
INICIO DE LOS DATOS 


ALMACENAR CARSAL EN LA 
NUEVA AREA 


DE, HL 

C¡ETIQUETA-CARSAL 

HL BO HL=ETIDUETA 

BL,Y NUEVE EYTES MAS DE DATOS 
COPIAR LOS DATOS EN CHÉNS= 

HL HL=INICIO DE DATUS 


(GE32 HN, HL ALMACENAR El DESPLAZÁ- 
MIENTO DENTRO DE STRMS 
QUE LE CORRESPORDE e 
LA CORRIENTE $19 

20,0 
¡ HA => eN 
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08450 
0440 
440 
0430 


-- 
e 
Dl 


CARSÁL 


ENCUN- 
TRADO 


DEFI) 
DEFM 
DEFI 
DEFI 
DEFI) 


PUSH 


¡E 


ir 
yd 


¿3H 


AF 
HL, CU 
A UH 


cz. 
A 


7, ENCON- 
TRADO 


ARS 


HL, EC 
1652H 
HL 

DE,H 


LA RUTINA DE “ENTRÁDA" 
EL NOMBRE DEL CANAL 
SALIDA DE LA ROM 
ADICIONAL 

ENTRADA DE LA ROM 
ADICTONAL 

EL NUMERO DE BYTES 

LA RUTINA DE SALIDA: 
ALMACENAR (SAWJE? EL 
CODIGO DE CARACTER 


SALTAR 51 SE Há 
ENCONTRADO 23 


SUAR NO ENCONTRADA?” 51 
Ra Rar MAS 

LLAMAR A NEXT-ONE 
HL=INICIO DE LA PROUXIMA 
VARIABLE 

VOLVER ÁL INICIO DeL 
BUCLE 

HL=BYTE BAJO DE LA 
LONGITUD DE LA CADENA 


HL=EYTE ALTO DE LA 
LONGITUD DE LA CADENA 
BCL=LONGITUOD LE LA CADENA 
INCREMENTAR LONGITUD 
ALMACENAR SAVE? LA NUEVA 
LONGITUO 


ALMACENAR (SAVE) LA 
PUS TETU PEE PRIMER 


CARACTER 

HL=FIMAL LA LALERÁ 
LAMAR A ONEZSPACE 1 HACER 

SITIO PARÁ CARACTER) 
HL=NUEVO ESPÁCIO 

DE=NUEVO ESPACIO 


DE 


0656 POP HL 
06650 POP BL 
0670 LD *HLI,B 
9686 DEC HL 

0£7U LD a 
000 POP AF 
6710 5, (DEJA 
DZ220 año A 

730 RET 

0740 END 

On EOF GOTO 


HL=POSICION DEL PRIMER 
CARÁCTER 

BC=NUEVA LONGITUD 
ALMACENAR LA NUEVA 
LONGITUD 


SACAR DE LA PILA EL 
CODIGO DEL CARÁCTER 
ALMACENAR EL CARÁCTER 
EN LA CADENA 

PONER EL ACARREO A CERO 
¿PARÁ EVITAR ERRORES) 
VUELTA AL SISTEMA 
OPERATIVO 


Esta rutina cambia ERRSP para que apunte a una rutina conve- 


niente de tratamiento de error. 


0010; "FIN DE FIC 
DOZO; CODIGO INDEPEN 
(PIC CODE>* 

0090 ORG ¿0005 
00S0 IMD LD AL, URIGEN= A 
DO0S0 ADD HL,BC 
D07n Ex DE, HL 
0080 LD HL,CERRSP) 
1090 LD (HL>,E 
0100 IMC HL 
0110 LD (HL, D 

120 RST 8 
0130 DEFB 31H 
01890 LD EC,0 
0150 RET 


UF GOTO” 
CE LA POSICION 


bl 
> 
4 


Es 
pr 


ALMALENAR LA MueEllda RUTINA 


pr 
mi 
7 
7 
Q 
1 d. 


EN CA PUSICiI0N CURRES EAS 
DIENTE CENTRO DE LA Pl 

CE QUE LAS 
DEL INTERFACE 


ASEGURARSE 
VARIABLES 
ESTAN AHI 


RETORNO AL ESSIC LON (0 mu- 
TIN4 DE GESTION De ERRÚNES 


ua! 
hh ha. bd Ps 
Ce. 


Q 


“es 


] 
ela, - 
4 0 
' 


-— Ur! 
pen 


eo EZ (ZA ET 


E 


Cl 


A A 


DO O 
3 DA 
| 


L 1 ha 


A 


SS A 


E 


O 1 O 
to A 


GI Ca E 


0300 
0310 


CN 
Ut TA 


En 


ODER 


HL, (5045H5 


(SCCIH) HL 
DE, LINEA 


OPEN Y cualquier cosa 


HL=FUSICIÓN DE LA PILA 
á=0056160 DE ERROR 

ES UNEN? 

SALTAR A LA RUTINA DE 
ERROR DE LA ROM Ss] NU 
Ll ES 

ch DIR Casto, DE=ORISEN 


PÚMER ORTGEM EN EL FONDO 
DE LÁ FILA 

BORRAR LAS AREAS DE 
TRAEAJO Y EDICION ] 
INDICAR QUE SE ESTA LISTO 
PARAS UTRA TECLA 

BORRAR LA PARTE INFERIOR 
DE LA PANTALLA Y ABRIR 

LA CORRIENTE 0 

HL=MNUMERO DE LINEA EN UN 
MOMENTO DADO 

ALMACENARLO EN SECTOR 
DE=LINEA A LA QUE HAY QUE 
SALTAR 

HL=HELNFFC 

ALMACENAR EL HUEVO NUMERO 
DE LIMER 


CER WNSPPC=1, ES DECIR, 
QUE LA PRIMERA INSTRUC- 
CION SALTE A LA ROM 


001 BE QUe INPORPMIE DE EbLP 
UMERO DE LINEA DEL ERROR 


Esta rutina hace que se abra para un canal del Microdrive la co- 
rriente que se especifique. Básicamente se trata de la rutina del co- 
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mando OPEN 


de error. 


0010 
0030 
0040 
0050 


$ 
ñ 
3 
. 
3 


DPENM 


0060 CLOSM 
0070 MOTCR 


0080 


0070 ORIGEN 


0100 
0110 
0120 
0130 
0140 
0150 


6150 


0170 
0180 


0190 
0200 


0210 
0220 


0230 
0240 
0.230 
0260 


0270 
0280 
0290 
(300 


%* a la que se han modificado las comprobaciones 


EQU 
EQU 
EQU 
URG 
LD 


"GPEN CUALQUIER COSÁ" 


area de 


LS ra rá ma 


Ay SCDSH) 


17 227H 
HL,17 
A 
HL,B£ 
EC ,Ú 
E 


(5CD7H) ,A 


HL,10 
(SCDAH) , HL 


HL,¿507BH) 
¿SCDCH) ,HL 
A,(5CD8BH) 
A 


HL ¿501 6H 


CODIGOS ESPECIALES 


A=S_STRÍI=NUMERO DE 
CORRIENTE 
LLAMAR A STRDATA1 


VUELTA AL BÁSIC CON 0 SI] 
LA CORRIENTE YA ESTABA 
ABIERTA 

PONER A CERO EL BYTE ALTO 
DE D_STRI 


HACER QUE LA LONGITUD DEL 
NOMBRE DEL FICHERO SEA=10 


HACER QUE INICIO DEL 
NOMBRE = AREA DE GRAFICOS 
DEL USUARIO 

ASNUMERO DE CORRIENTE 
CALCULAR EL STRM 
CORRESPONDIENTE 


HL=POSICION DE LA 
CORRIENTE 


ALMACENAR (SAVE) H*L* 


SALVAR LA POSICION. STRM 
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03720 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 


046506 


0470 
0480 


0490 


0500 
0510 
0520 
0330 


0544 
0550 
0550 
0570 


023Ss0 
03790 
000 
0610 
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LECT 


CC 


OPEN 


0,(1X+295 


Ls EcT 


BC, 1 


7, 1X+9) 


ñ 
HL 


ÍS 


MOTOR 
DE 
HL 
(HL) ,E 


HL 
¿HL>,D 


A, (+87) 


ABRIR UN CANAL 
TEMPORAL 


mm" 


SALTAR Sl] 
DE ALTURA 
FICHERO NO ENCONTRADO 


ASI QUE DESCONECTAR TODOS 


LOS MOTORES 


Y LIBERAR EL AREA 


RESTAURAR LÁ PILA 


SACAR DE LA PILA H“L* 


VOLVER CON 1 SI NO SE 
HA ENCONTRADO 
HACERLO PERMANENTE 


ALMACENAR (SAVE) EL 
DESPLAZAMIENTO DE LA 
CORRIENTE 

DESCONECTAR TODOS LOS 
MOTORES 


DE=DESPLAZAMIENTO 
HL=P0S1CI0N 
ALMACENAR EL NUEVO 
DESPLAZAMIENTO 

EN EL AREA STRMS 


ASRECFLG 

ENMASCARAR EL BIT QUE 
INDICA FICHERO DE TIPO 
PRINT 

SUMAR 2 
DEJAR EN BC 


ES UN FICHERO 


0520 POP HL EXTRAER HL” DE LA PILA 

0430 EXX 

0450 RET VOLVER CON UN 2 SI SE 
TRATABA DE UN FICHER£ DE 
TIPO PRINT O CON UN 4 EN 
CASO CONTRARIO 

20650 END 


Rutina de estado 


Esta rutina es muy similar a la que está en la ROM adicional con 
el nombre de MOTOR (posiciones X182AH a X1871H) pero con la 
gestión de errores modificada. Su misión es determinar si está pre- 
sente un determinado Microdrive o no. En caso de que lo esté, se 
determina si el cartucho está protegido contra escritura. Las etique- 
tas utilizadas se basan en las posiciones equivalentes de la ROM adi- 
cional. La posición ORG es una de origen de depuración —no se 
trata, pues, de una rutina cuyo código sea independiente de la po- 
sición—. El cargador del BASIC se encarga de realizar la reubicación de 
los cuatro CALLs. 

(No puedo asegurar qué hace exactamente cada instrucción de 
Entrada/Salida de los «ports»: las notas indicadas aquí son aproxi- 
madas). 


010; RUTIMA DE ESTADO 

0020 MOTCR EQU 21H CODIGO ESPECIAL DEL MOTOR 

040 ORG 40000 ORIGEN DE DEPURACION 

0040 LD AL3SCDóÓH)  —A=D-STRI=NUMERO DE UNIDAD 

0050 5] NO SE PERMITEN LAS INTE- 
—RRUPETONES 

4040 E x1828 SALTAR ESTO 

000 x1s50é6 LL HE 20H HL=50004 

080 1607 PE HL 

0090 Li BL 

0100 a H 

1310 F 2 12907 ESPERA POE 

pin 8 Aba 

IA E Ea 

0140 X1Slo 1 ALLUERHS LESA DEL: “PUR?” EF 
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0130 
0140 


0170 
0180 


0190 
0200 
0210 
0220 
0230 
0240 


QZ50 7 


0260 


0270 


0280 
0290 
0300 


0310 


0320 
(0330 


0340 
0350 
0340 
0370 
0350 
O3y0 
0300 


U31O 


na 24 
0430 
0430 
14 
164 


4 
NZ ,X1820 


xX1813 
PRESN 


HL 
AH 

L 
NZ,X1811 
BC,0 
NOTPR 
DE,0100H 


A,D 
(0F7H),A 


A,DEEH 
(OEFH),A 


SOLO EL BIT 2 
SALTAR SI LA UNIDAD NO 
ESTA PRESENTE 


COMPROBARLO SEIS VECES 


LO ESTA, POR LO TANTO, 
RETORNAR 
DECREMENTAR EL CONTADOR 


REPETIRLO 5000 VECES 

NO SE PUEDE CONECTAR POR 
TANTO, VOLVER CON 0 

D=1 ,E=0. 

NEGAR EL NUMERO DE LA 
UNIDAD 

A=S-NUMERO DE LA UNIDAD LE, 
MICRUADRIVE 

C=UNIDAD SELECCIONADA 
ESCONTADUR DE LA UNIDAD 
DECREMENTAR LA UNIDAD 
SELECCIONADA 

SALTAR Si NO SE TRATA DEL 
QUE ESTAMOS INLESTIGANDO, 
PARA PONER EN MARCHA 
MOTOR > 


ENVIBR UN 1 AL "PORT" F? 
-CONECTAR= 


ENVIAR EE AL "PORT" EF 
ESPERAR UN POCO 


ENVIAR EC AL "PORT" EF 
ESPERAR UN POCO 

HAGASE LO SIGUIENTE, 
DESCONECTAR UNA UNIDAD 


ENVIAR EF AL "PORT" EF 
ENVIAR UN 0 AL "PORT" F? 


-DESCTONECTAR- 
ESPERAR UN POCO 


0440 LD A,0EDH 


0470 OUT ¿OEFH5,Aá ENVIAR ED AL "PORT" EF 

0480 CALL  x18467 ESPERAR UN POCO 

0490 Xx185C0 DJNZ Xx1835 HACER LO MISMO CON LAS 

8 UNIDADES 

0500 LD A,D | 

0510 OUT  (0F?H),A ENVIAR UN 1 AL "PORT" F? 

0520 LD A,OUEEH 

0530 QDUT — («O0EFH>»,A ENVIAR EE AL "PORT" EF 

0540 JR «1804 COMPROBAR SU ESTADO 

0550 X1867 PUSH BC RUTINA DE RETARDO: 

0540 PUSH AF ALMACENAR (SAVE) 

| REGISTROS 

0570 LD.  BC,U087H  BC=135 

0580 X18FB DEC BC 

0580 X1SFB DEC. EC 

0S70 LD ñ,B 

0400 OR C 

0410 JR N2,Xi8FB— REALIZAR El BUCLE 135 
JECES 

0620 POP. AE RESTAURAR REGISTROS 

0630 POP. Ef 

0640 RET VOLVER 

0450 PRESN IN A,ÍDEFH) LA UNIDAD ESTA PRESENTE, 

0460' AND 1 ASI QUE, COMPROBAR Lé 
LENGUETA 

0470 LD BC ,1 

0480 JR N2,NOTFR SALTAR CON UN 1 51 Lá 
LENGUETA ESTA ALLI. 

0390 INC EC EN OTRO CASO 2 

0700 NOTPR PUSH EC SALVAR EL VALOR DE RETORNO 

0710 XOR A 

0720 RST 8 

1730 DEFB MOTOR DESCOMECTAR TODAS LAS 
MOTORES | 

0730 POP. EL RESTAURAR EL VALOR 

0755 RET VUELTA AL BASIC 

0740 END 


165 


On error goto 


Esta rutina cambia ERR__SP para que apunte a una nueva ru- 
tina de gestión de errores. Esto no basta para los errores del Inter- 
face: para ellos hay que activar el bit 2 de FLAGS3 pues, de otra 
forma, se emplearía la rutina normal de gestión de errores. Si el error 
tiene lugar cuando, por paginación, la ROM ocupa el espacio de 
memoria, HL valdrá 81H. 


Vv0iG ; ÓN ERRE GUTO" 

0020 ; VERSION PARA INTERFACE 

0030 ERRSF EQU SC3SDH INICIALIZAR LAS 

| CONSTANTES 

(1040 SECTR  EGU SCC9H 

0050 LINEA EGU 1000 SALTO DE LA LINEA DE 
ERROR 

0450 ORG 40000 ORIGEN ARBITRARIO 

(1070 INICIO LD AL,ORIGEN-INICIO 

008 ADD HL,BC HL= INICIO 

000 EX DE, HL DE= INICIO 

0100 LD HL, 1ERRSP> HL=POSICIOÓN DE ERROR EN 
L4 PILA 

0110 LD CALIE ALMACENAR LA DIRECCION DE 

(1120 INC- HL La MUEVA RUTIMA DE GES- 
TION DE ERROR EN LA PILA 

1130 LD ¡HL),D 

0140 REST o 

UAT 'DEPB. 31H CREAR LAS VARIABLES 
ACICIOÓNSLES 

1140) ED EcC,0 

011,20 RET SOLER CON U 
CA NUEVA RUTIMA DE 
GESTION DE ERRÚR: 

dicó ORISEN LD ¿SECTR,OL ALMACENAR El VALOR DE HL 

aJ]op LD by ERRORS 

WIUÓ LD DE 103 DE=RUTIMA DE ERROR DE LA 
Rom ANTIGUA 

uu PHen. BE GUARDARLA EN LA PILA PARA 
¡MPEDIR QUE LA PROXIMA 
VEZ SE ACTIVE ESTA 
FUNCION 
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0220 CALL — 146B0H BORRAR LAS DISTINTAS 


AREAS 

0230 RES 3401 Y+ 37H BORRAR EL 617 DE LA TECLA 
EN FLAGS 

0240 CALL — uDéEH EORRAR LA PÁRTE INFERIOR 


DE LA PANTALLA Y ABRIR. 
LA CORRIENTE 6 


0250 LD HLy17B9S SLSRUTINA DE LA ROM ADI- 
Fin QUE RECUPERA TODOS 

125 LANALErR TEMPORALES Y 
GSESCOÓNECTA 1UDAS LOS 
MOTORES 

a2s0 LD RSCEDHI, HL ALMACENAR EN 4D-11 

920 LD AL ISC3AH?. —A=IWUMERO DE ERROR 

4280 LO LIS, A. ALMALEMARLO EN MTLEN 

6270 PUSH AE ALMACENAR ¿SAVE EL 

CODIGO De ERROR 

300 EST 3 

3310 DEFB 32H LLAMAR X17B2H 

0320 LD HL,008iH 

0330 LD DE, (SECTR DE=SVALOR DE HL DESPUES 
DEL ERROR 

0340 POP. AF Aá=C0D160 DE ERROR DE LA 
ROM ANTIGUA 

330 AND A PONER A CERO EL BIT DE 
ACARREOC 

0340 SEL HL ,DE 

0370 JR Mg, OLD SSLTAR SI El HLi7+81ik 2285 
DECIR, SI SE TRATA Li 
ERROR DE LA ROM ANTIGUA: 

0380 E1T 0,:1Y+129) COMPROSAR FLAGSS 

0376 ¿E Neé ¡LD SALTAR A UN ERRUR UE LA 
RO ANTIGUA 31 ESTÁ EN 
MEDIO DE UMA INSTRUCCION 

03900 EP E 

0410 JE ¿OLD SALTAR SÍ ERA UN EUF 

0420 LD 4,100 SE TRATA DE UN ERROR DEL 
INTERFACE, POR TANTO, 

04360 LD LestoSd yA AaLMateNar 100 EN NTLEN 

0440 LD A," PRINT" 

0456 RST 10H IMPRIMIR UN "PRINT" 
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0460 


0470 
0480 


0490 
(0500 
0510 


0520 
0530 
0540 
0550 
0560 
0570 


0580 
0590 
0500 
0410 


0620 
0430 


4s40 
0650 
0460 
0670 
0480 


DTO 
0700 
0710 
0720 


073 


0740 
0750 


0760 
168 


PRNTN 


ESPERA 


PRNTN 


Aa,B 
DE,12391H 
OCUAaH - 


A 

DE,1336H 
OCOAH 
BC,(¿50495H) 


(SECTR) ,BC 
1A1BH 


ar 
10H 

Cy (11419) 
B,0 

1A1BH 


HL, 5C3BH 
5,0 HL) 


5, HL) 
2 WAIT 


HL,SC42H 
DE, LINE 


(HL) ,E 


IMPRIMIR NUMEROS DE LINEA 
ETC. ERROR DE LÁ ROM 
ANTIGUA: 


ALMACENAR EN B EL NUMERO 
DE ERROR 


FORMAR EL CARACTER DEL 
MENSAJE DE ERROR 
IMPRIMIRLO 


IMPRIMIR UN ESPACIO 


IMPRIMIR EL MENSAJE DE 
ERROR 


IMPRIMIR ",* 
BC=PPC=LINÉA QUE SE ESTA 
TRATANDO 


ALMACENAR EN SECTOR 
IMPRIMIR EL NUMERO DE 
LINEA 


IMPRIMIR DOS PUNTOS (":*) 


IMPRIMIR EL NUMERO DE 
LA INSTRUCCION 
HL=FLAGS 


PERMITIR INTERRUPCIONES 


ESPERAR A QUE SE PULSE 
UNA TECLA 

HL=NEWPPC 

DE=LINEA DE ERROR A LA 
QUE HAY QUE SALTAR 
ALMACENAR LA LINEA 


070 INC HL 


0780 LD ¿HL>,D 

0790 INC HL 

0200 LD (HL>,1 CONVERTIR EN LA 
INSTRUCCION 1 

0810 LD (1/+0),255 BORRAR EL ERROR 

0820 LD (1Y+124),0 BORRAR C<PONER A CERO) 
FLAGS3 ' 

0830 CALL 0DSEH BORRAR LA PARTE INFERIOR 
DE LA PANTALLA 

0840 JP 187DH SALTAR A LA ROM DE 16K 

0850 END 


Rutina TAB para el RS232 


Esta rutina cambia los datos del canal «P» para que LPRINTS, 
etc. se puedan enviar a la vía de acceso (port) del RS232 de forma 
similar al canal «T» pero con la función TAB, Se utilizan tres varia- 
bles propias del sistema: WIDTH = anchura de la impresora, 
POSN = posición de la cabeza de impresión en un momento dado 
y CONTR = trabaja como señalizador. Cuando se interpreta la fun- 
ción TAB, se envía primero el carácter 23 y luego el bit menos 
significativo (LSB) del siguiente número seguido del bit más signiífi- 
cativo (MSB). 


0010; "RUTINA DE TAB PARÁ Roz32" 

0020 ORG 23276 SITUARLA EN LA MEMORIA 
INTERMEDIA «¿BUFFER DE 
LA IMPRESORA 


0030 INIC LD HL, 023621) HL=CHANS 

0040 LD BC, 15 

0050 ADD HL,EC HL=AREA DEL CANAL "P" 
0080 LD DE,ORIGEN DE=NUEVA RUTINA DE SALIDA 
0070 LD (HLy.E ALMACENAR LA NUEVA RUTINA 
0080 INC HL POSICION EN EL AREA "Pp" 
0090 LD (HL>,D 

0100 LD EC,O 

0110 LD HL ,POSN 

0120 LD (HL),B DAR A POSN EL VALOR 0 
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0130 
0140 
1150 


0150 
0170 
0189 
WiP0 


200 
0:10 


0240 
0250 


0240 
0.220 
U280 
0290 
4300 
1310 


M.320 
0330 
1.3390 
(010.350 
0340 
(1370 
01380 


(1,390 
0400 


v7O 


ORIGEN 


NEL 1 


PNL 


BUCLE 


ir 
Ha E 
—| 


LD 
RES 


o. 
a 
—+$ 
Ma. 
8 
2 
= 


e hueco Rs 
mt 


PY QA 


3 
A 


ed 
PE 
eS 


HL, CONTR 
0, 2HL 


0,<HL) 
NZ 


HL, CONTR 
0,<HL) 


HL 
(HL) ,0 
A,13 
CARSAL 
A,10 
CARSAL 


7 


t 
Ó 


PE 


DE,TAB2 


HL, (5CS1H) 


(HL>,E 
HL 


(HL3,D 


DAR Á CONTR EL VALOR 0 
RETORNO CON 0 

LA RUTINA DE SALIDA: 
A=CO0DIG0 


SENAL 1ZADOR 
LINEA 
AUTOMAT 
PONERLO A 0 

EN CASO DE QUE ESTE 
ACTIVADO, NO HACER 
NEWL INE 


BORRAR EL SENALIZADOR 
DE AVANCE DE LINEA 
AUTOMATICO 

HL=POSN 

PONER A 0 POSN 

ENVIAR UN 


"NEWLINE" (13) 


EMNYIAR UN AVANCE DE LINEA 
(LINE-FEED? (10) 
ES EL CARALUTER DE TAB? 


RETORNO 51 NO LO ES 
INSTRUCCION TAB 
HL=CURCHL 

ALMACENAR DE EN CURCHL, 
ES DECIR, CAMBIAR LA PO- 
SICION DE SALIDA POR DE 


RETORNO. 
TRAER AQUI EL LSB DE LA 
POSICION DE TAB: 


0410 


0420 
0430 


0440 
0430 


$460 
0420 
0480 
0490 
0500 


asi0 
0520 
0530 
540 
0330 


0566 
0576 


0580 
Us?0 


0500 
0610 
0620 
0636 
0440 
0550 
06 
CáFO 


GáSi 


TAB 


TAB3 


TAB4 


TAEB 


¿SCOFH),A 


DE,TAB3 
REDO 


DE, ORIGEN 
REDO 


A,(5COFH) 
D,A 
HL, WIDTH 
(HL) 
NC,046CH 


ALMACENAR EL LSB EN 
TUDATAZ 


EJECUTAR LA RUTINA DE SA- 
LIDA TAB3. TRAER AGUI EL 
MSB DE LÁ POSICION TAB: 


VOLVER LA RUTINA DE 
SALIDA A LA NORMAL 
A=SPOSICIÓN DE TAB 
ALMACENAR EN D 


A=TÁB-W1DTH 

"FUERÁ DE RANGO" 51 LA 
ANCHURA NO ES SUFICIENTE 
HL=POSN 
A=TAB 
A=TAB-POSN 
ALMACENAR 
HACER "NEWLINE” 
MECLESARITC 
RESTAURAR D 
A=TAB 
A=TAB-POSN 
RETORNAR S1 ESTABA 
LUGAR CORRECTC 
E=NUMERD DE ESPACIOS 
NECESARIOS 


(SAVE) D 
54 ES 


ENEL 


ALMACENAR (SAVE) BL 
INTERCAMBIAR EL CONTENIDO 
DE LOS REGISTROS 

IMPRIMIR UN ESPÁCIO 
VOLVER A INTERCAMBIAR EL 
CONTENIDO DE LOS 
RESISTROS 
RESTAURAR EL 
IMPRIMIR LOs 


ESPACIOS 


Jo: 


Loera FALTA 


ORAR UNA VEZ HELHI 
GU, TRAER AQUI LOs 
Í 


"NORMALES" 


CA A 


E 
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Le$0 
0793 


07 
0720 


1z30 


ur30 
730 


U ñá ás úl 
070 


1780 


RPA 


MORME 


O0?70 NE 


n200 


0810 


ARTE 
011340 
VE30 
VES0 
(0180 
(MERO 


10 


UY 40 


uz LÚ 
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1nasH 
CS, NORMZ 


LD HL, 5C2BH 
RES  0,£HL) 


SET UL HLO 
CP ¿PE 
JR CU, CARSALZ 


; Ñ 
e 


NEWL 1 


SES O, 


¡TY CONYO 


SALTAR SI NO SE TRATA DE 
UN COMANDO ESPECIÁL 


EL CARÁCTER DE 
AL COMANDO 

A CERO EL INDILA- 
'ANCE DE LINA 
D) AUTEMATICO 


-DOR DE AY 
ALAINE=S FEE 
HL=FLAGS 
PÚNER A CERO EL SENALIZA- 


DOR DE "ESPACIO PRECEDEN- 
TE" (LOU QUE NO HACE LA 


ROM) 


DEJARLO 5I NG ES U 
ESPACIO, EN CASU ne 
RIO PONER EL SENAL 
A UNO 


so 


iMerRIMiS El CARAC 2. 
NO ES ERaFICO 
SE T 2 DE UN CARACTER 


O, POR TANTO, 


EN] 
DO I< cu I> 
—H 
Í 


A A 


AR 
A=NUENA POSN 
HL=WMIDTH 
COMPARAR LUN WIDTH 
RETORNAR SI NO SON 
IGUALES 
FIN DE LINEA, HAY QUE 
HACER “NEWLIN "Y ACTIVAR 
£i SENALIZADOR DE AVANCE 
DE LINEA *LINE-FEED) 
AUTOMATICO 
RETURMAR 
ENVIAR UN 


CARACTER ALRES232 


: Ú 
.. 


A 


od 
“<Q y 
(a 


% 44 


UR 
mn] 


cn 
1 


E 
. 41 


.. en 


hot. ] 
Lasad 
pa 
nor y 


CARSAL RST 2 CODIGO ESPECIAL 
O DEFS  1EH BYTE 2320P 


RET RETORNO 


CONSTANTES : 
app: e sos SR LA Cr AS = + o Ts 
JIOTH EQU. 23590 MEMORIA INTESMEDIA 
(BUFFER DE OLA IMPRESORA 


POS 
CONTE 
POsY 
ON Y 


Pr ) 
e 
ta 


A] 

(- 
EE 

H”l 0... 

ue 

YH 

T. 


= 
ca qa 


As A 


H DesrLAcanizNiós DE 1Y 
H 


A E 
anal] 


fa mim mm 
ZEDOE 
LS: 
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Apéndice C 
ERRORES DEL INTERFACE 


Cuando el Interface está conectado, se utiliza una ROM adi- 
cional de 8 K para nuevas realizaciones. Hay que tener muy en cuen- 
ta que pueden surgir problemas al hacer uso de ella por causa de 
errores en el proceso de fabricación, especialmente en el anterior 
modelo de ROM. 


1. Fallos en la comprobación de sintaxis 


Cuando se preparó la ROM de 16 K original, la sintaxis para los 
comandos del Interface se anticipó incorrectamente. Desgraciada- 
mente las formas sintácticas incorrectas —las de la ROM original — 
son aceptadas por el comprobador sintáctico pero no pueden eje- 
cutarse. 

Las formas sintácticas incorrectas son: 


ERASE <cadena> p. ej. ERASE «prueba» 
MOVE <cadena>, <cadena> p. ej. MOVE «a», «b» 
FORMAT  <cadena> p. ej. FORMAT «prueba» 
CAT (sin ningún número) 


2. Comandos de color 


Este no es un problema que se deba estrictamente a la ROM en 
el Interface sino a un fragmento de código en BASIC poco eficiente. 
Para solventarlo es necesario anteponer a cada instrucción de color 
una instrucción PRINT; 


1/4 


3. Inconsistencias en el BREAK 


Parece existir en la antigua ROM una inconsistencia general en lo 
que se refiere a la forma en que hay que utilizar BREAK con las 
operaciones del Interface. Cuando se efectúan operaciones con el 
Microdrive o cuando se realiza una salida a través del RS232 hay que 
pulsar simultáneamente las teclas CAPS SHIFT y SPACE. En cambio, 
cuando se trabaja con la red o se recibe una entrada a través del 
RS232 basta con pulsar la tecla SPACE. En la ROM nueva siempre 
se deben pulsar las dos teclas al mismo tiempo. 


4. Operaciones con el cassette 


Cuando, durante la realización de una operación con el cassette, 
se hace servir un nombre de fichero que, por cualquier motivo, no 
sea correcto (por ejemplo, que tenga más de 10 caracteres) en vez de 
aparecer el mensaje «Invalid filename» (Nombre de fichero inco- 
rrecto) aparece el mensaje «Nonsense in BASIC (Sin sentido en 
BASIC) que no ayuda mucho a solventar el error producido. 


5. Carga (LOAD) de un programa BASIC de gran tamaño 


Si se intenta cargar un programa BASIC de gran tamaño y no hay 
espacio suficiente para él, se puede producir un error fatal para el 
sistema quedando, además, el motor en marcha. Desgraciadamente 
este error se mantiene en la nueva ROM. | 

Los siguientes problemas tienen que ver únicamente con la ROM 
antigua. Han sido corregidos y no se encuentran en la nueva. 


6. Códigos especiales en lenguaje máquina 


Dos de los códigos especiales en lenguaje máquina no funcionan. 

No se puede emplear READ__N porque afecta al señalizador de 

acarreo. Por otra parte, MAKE__M hace lo mismo que OPEN__M. 

Este error se debe a una entrada incorrecta en la tabla de saltos de 

los códigos especiales. Esta entrada se encuentra en la posición 
X19C9H. 
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7. Dobles espacios en RS232 


Cuando se hace uso de un canal «t» para listar programas, se 
imprime un doble espacio entre las palabras claves como, por ejemplo, 
es el caso de PRINT PAPER o THEN PRINT. El error se debe a la 
imposibilidad de trabajar con el bit O de los señalizadores («flags»). 


8. El problema de CLOSE + 


Si se hace Break en medio de una sentencia CLOSE + que haga 
referencia a un canal del Interface, la memoria que ese canal utilice 
no se libera. De esta forma se desperdician grandes cantidades de 
memoria. No es fácil contrarrestar los efectos de este error. La libe- 
ración de ese espacio de memoria no se conseguirá haciendo 
CLEAR . Es necesario realizar un NEW. En la nueva ROM se ha co- 
rregido este problema añadiendo en la posición X1741H la instrucción 
SET 7,(HL). 


9. Problemas al utilizar un valor demasiado bajo para RAMTOP 


Si se intenta ejecutar un SAVE* «m» o LOAD* «m», con un valor 
de RAMTOP demasiado bajo, se puede afectar fatalmente a la má- 
quina dejando, además, el motor en marcha. Se ha corregido este 
problema en la nueva ROM mejorando las comprobaciones de espa- 
cio libre en memoria. 


10. Problemas con la red 


Si se hace SAVE? N y, por casualidad, el cuarto byte de la me- 
moria intermedia (buffer) «N» final es 205, se produce un error fatal 
para el sistema. Está provocado por la alteración del contenido del 
registro IX. Afortunadamente, las posibilidades de que esto ocurra 
son muy pequeñas. 


176 


BIBLIOGRAFIA 


«The Working Spectrum», por David Lawrence. Sunshine Books. 

«Programming the Z80», por Rodney Zaks. Sybex Inc. 

«ZX Spectrum BASIC Programming», por Steven Vickers y Robin Brad- 
beer. Sinclair Research Ltd. 

«ZX Microdrive and Interface 1 manual». Sinclair Research Ltd. 

«The Complete Spectrum ROM Disassembly», por Dr. lan Logan y Dr. 
Frank O'Hara. Melbourne House Ltd. 


Guia práctica de BASIC del GU Í A PRÁCTICA 


2X-81 :: Exa 
Cain] SPECTRUM 


a Todas las posibilidades 


A EVOL ADOS Sl USUARiÓ por RAMÓN ROVIRA SOLIGÓ 
EOIT AND THEN TO Libro n.? 172 
1 22 3. 4. 
ES: 148 págs. 
Qu Wi Er F 31 figuras 


sToP 


Am S” Du 


SUMARIO 


Introducción a los ordenadores - Instalación y mantenimiento 
- La familiarización con el ZX-81 - Empezando a programar 
- Instrucciones principales - Operaciones y funciones - El 
juego de caracteres - Las cadenas - Condiciones y operado- 
res lógicos - Programación con bucles - Conjuntos, vectores 
y matrices - Gráficos - La impresora - El almacenamiento de 
datos en cassette - Estructura de la memoria - Acceso a la 
memoria - PEEK y POKE - Variables del sistema - Instruc- 
ción.a código máquina - Ahorro de memoria - Comparación 
con otros BASICs - Códigos de error - El ZX-Spectrum - 
Teclado - Características adicionales del ZX-Spectrum sobre 
el ZX-81 - Color; sonido; separación de instrucciones en una 
misma línea - Instrucciones y comandos BASIC - Gráficos de 
alta resolución - Almacenamiento de programas y datos en 
cassette - Juego de caracteres - Mensajes de error - Micro- 
drives - Mapa de memoria 


ACCESO [Ez 
pa —— — 

RÁPIDO [FET 

a VIC:20 

A L VI] C 2 0 enira acquainted 


with your VIC-20) 


por TIM HARTNELL __ 000 Tem Haine 
Libro n.* 173 ==" 
148 págs. E 
LISTADOS EN ESPAÑOL DE DES poes 
TODOS LOS PROGRAMAS a CO 
SUMARIO 


Números aleatorios - Mecanismos simples de toma de decisión - La 
ruleta rusa - El “núcleo de programa” , la premisa para buenos juegos - 
Realización de gráficos - Cómo se forma la biblioteca de programas pro- 
pia - For/Next - Cara o cruz - Cálculos numéricos - ideas generales sobre 
la confección de programas - Percepción extrasensorial - Mata al asesino 
- ¿Cuánto tiempo me queda? - Jugando con las musas - Búsqueda de 
coordenadas - Tragaperras - Perdidos en el espacio - Vectores (“arrays”) 
- La araña dimensional - “Pesky piksy” - Alienigenas y asteroides - Fun- 
ciones gráficas en color - Serpientes y escaleras - Carreras de coches - 
Juego de cartas - Acertijo - El juego de las damas - Primeros pasos hacia 
las estrellas - Frenesí - Posibilidades musicales del VIC-20 - Instruccio- 
nes READ y DATA - Maestro - Escalas de dificultad - La cámara de ecos 
- Qué más puede hacer con su VIC-20 - El rey de las cavernas - Alfa - 
Cambio de papeles - El colgado (las nueve vidas) - Nim - El juego de la 
vida - Cubik - ¿Cuál es el número elegido? - Lógica - “Blackjack” - Kalki, 
el adivinador del pensamiento - “Chemin de fer” - “Craps” - “Esperanza 
de vida” - “La pajarera” - El séptimo cielo - Alunizaje - Laberinto - El pro- 
fesor - La conversión de temperaturas - El acertijo de la multiplicación - 
Cuadrados - Apéndices: Comandos; Instrucciones; Funciones; Código 
de pantalla y A$ 


PROGRAMACIÓN 
EN CÓDIGO MÁQUINA 
PARA EL 2X-81 Y 


zx PARA EL SPECTRUM 


SUMARIO 


Introducción - Decimal, Hexadecimal, Binario - BASIC y Código 
Máquina - Los registros - Código Máquina en el ZX-81 - La instruc- 
ción LD - Aritmética sencilla: ADD, SUB, INC, DEC - Los señaliza- 
dores (flags) - Instrucciones relacionadas con flags - Saltos: abso- 
lutos, relativos y condicionales - La pila (“stack”) - Trabajando con 
bits - Bucles y subrutinas - Instrucciones con repetición - Juego 
completo de instrucciones del Z-80 - Estructura de la pantalla: 
D- ¡LE - El teclado - Conexiones MIC y EAR - Técnicas de progra- 
mación - Aplicación práctica: juego “Comecocos” - Direcciones 
útiles de la ROM - Cálculos más complejos con la ROM - Instruc- 
ciones del Z-80 - Tabla de alteraciones de flags - Tablas de saltos 
relativos hacia adelante y hacia atrás - Mapa de memoria - La 
estructura de pantalla en el ZX Spectrum - El teclado en el ZX 
Spectrum - El altavoz y las conexiones MIC y EAR en el Spectrum 
- Consideraciones para aplicar el contenido del libro al Z2X Spec- 
trum - Modificaciones en el juego “Comecocos” 


LA MEJOR nl 
PROGRAMACIÓN 


IX EE 
DEL ZX-SPECTRUM ¡ 
Spectrum 


POR LA PRÁCTICA 


por TIM HARTNELL y DILWYN JONES por la práctica 
Libro n.* 177 por Tim Hartnell y Dilwyn Jones 
244 págs. | ¿Mas de 
LISTADOS EN ESPAÑOL DE mesa tos onocnamas e DO 


TODOS LOS PROGRAMAS A ! programas y 


y rutinas que 


"FUNCIONAN 


rd 


SUMARIO 


Utilización del teclado - PRINT y TAB - Conservación de programas (SAVE) - Com- 
probación de la buena grabación de un programa - Combinación de dos programas 
en el ordenador - Consejos para resolver en la carga de programas - PRINT AT - 
Colores y gráficos - Gráficos con gran resolución - Trazado de dibujos - CIRCLE - El 
arte de utilizar las cadenas - Figuras de moiré - POINT - La impresora - Números 
aleatorios - Corrida de toros - Variables - Variables en cadena - El canto de los grillos 
y la temperatura - INPUT - Combate - Interés compuesto - GO TO - IF... THEN GO 
1O - IF/THEN/ELSE - Bucles FOR/NEXT - Bucles anidados - STEP - GOSUB y 
HETURN - Sonido - Definición de funciones - La sentencia DIM y los conjuntos - 
Hompecódigos - Conjuntos de cadenas o variables alfanuméricas - Manejo de cade- 
nas - Las funciones LEN y STR$ - INKEYS$ - READ/DATA/STORE - Gráficos defini- 
dos por el usuario - DOTMAN (comecocos) - Eliminación de una parte de la presen- 
tación en pantalla - Desplazamiento de pantalla en BASIC (Scrolling) - Desplaza- 
rniento ascendente y descendente, hacia la izquierda y hacia la derecha - Conserva- 
ción de líneas en los márgenes - Movimiento de gráficos - SCREENS - La flecha roja 
- Engullidor de basura - Manipulación de cadenas alfanuméricas - INKEY$ cambiado 
Introducción a la aritmética - Números primos - Estadística - Evolución de dos espe- 
cies - Funciones trigonométricas - Conversión de otros dialectos del BASIC - Aritmé- 
tica de números enteros - Funciones GET y GETS, VAL, SET, RESET, ELSE, 
REPEAT... - UNTIL - Variables no definidas - Matrices - Grados y radianes - Loga- 
ritmos base 1 *' - Porcentaje - Interrrogación - PEEK y POKE - Aplicaciones comercia- 
les - Tratamiento de textos - Cómo mejorar los programas - Color - “Vida” - Juego de 
las cerillas - Circuito final - Estallido - Galaxian - Apéndices 


